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Introduction 


IT est peu habituel de se soucier de la manière dont un programme BASIC 
est exécuté par un ordinateur. 


Ce dernier n'est pourtant capable d'exécuter directement que des instruc- 
tions tout à fait élémentaires, beaucoup moins complexes qu'un FOR ou IF 
ou autres BOXF... 


Nous nous intéressons donc dans cet ouvrage à l'interpréteur, c'est-à-dire 
au programme chargé de décoder et exécuter des instructions écrites en 
BASIC. 


Nous avons choïisi pour cela la très répandue version 5.0 de la société 
MICROSOFT, écrite ici pour les deux micro-ordinateurs THOMSON TO7 et 
7107-70 et leur microprocesseur 6803. 


Après avoir présenté dans une première partie les deux TO7 et étudié en 
détail la programmation du 6809, /a deuxième partie permet de 
comprendre /e fonctionnement de l'interpréteur, commun aux deux T0O7. 


Les deux autres parties de cet ouvrage sont ensuite consacrées aux appli- 
cations, consistant d'abord à modifier et compléter /e BAS/C d'origine, puis 
à améliorer ses performances. 


\'AL 


Ce livre se veut à la portée aussi bien du programmeur ‘avancé ” qu'à celle 
du débutant, qui pourra dans un premier temps se consacrer aux applica- 
tions et découvrir ensuite la programmation en langage machine. 


J} poursuit un triple but: 


e But ‘pédagogique ” d'abord, sans qu'il soit question de théorie, avec /a 
présentation détaillée du 6809, la méthode générale de décodage d'un 
interpréteur quelconque, la présentation de quelques notions impor- 
tantes en général méconnues du programmeur BASIC comme celles de 
portée d'une variable ou de récursivité et enfin la découverte de ce quise 
passe ‘derrière les GOTO, 1F ou FOR habituels. 


e But ‘utilitaire” ensuite, avec la présentation de routines ou de 
programmes BASIC permettant de transformer l'interpréteur, tant au 
point de vue utilisation (nouvelles fonctions et instructions, procédures, 
sprites, BASIC francais.) qu'à celui des performances (compilation), 


e But ‘incitatif ‘enfin, en donnant tous les moyens de mettre en œuvre les 
propres idées de chacun, et toutes les méthodes permettant de 
comprendre et de transformer de même qu'ici l'interoréteur BASIC d'un 
ordinateur quelconque (MOS5 en particulier]. 
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Première partie 


LES TO7. LE 6899 
LE LANGAGE MACHINE 


Nous décrivons ici les principales caractéristiques des deux micro- 
ordinateurs T07 de THOMSON, ainsi que les éléments du moniteur et du 
BASIC que nous utiliserons plus tard dans la suite de ce livre: les diffé- 
rences entre 107 et TO7-7@ sont particulièrement développées. 


Nous ne détaillons par contre pas les instructions du BASIC, partiellement 
décrites dans le livre d'initiation fourni avec les TO7, ou plus précisément 
dans divers ouvrages dont le manuel de référence. 


1 
Les FO7 


1, Caractéristiques générales 


Les deux ordinateurs TO7 et TO7-70, apparus respectivement fin 82 et mi 
84, sont parfaitement représentatifs de ce que l'on peut attendre aujour- 
d'hui de l'informatique ‘familiale ”’. 


Nous citerons par exemple: 


— Affichage en couleur: 8 pour le TO7, 16 pour te TO7-79 qui permet 
8 couleurs supplémentaires. 


— Graphisme très fin de 329 x 290 points, entièrement mixable avec du 
texte. 


— Présence d'un crayon optique permettant de dessiner sur l'écran, de 
choisir entre différentes options (menu), etc. 


— Générateur de sons sur 5 octaves. 


32 Koctets de mémoire vive directement accessibles par le BASIC 
(plus 16 K commutables, soit 48 K en tout) pour la version de base du 
TO7-70 (extensibles à 112 K), contre 8 K (extensibles à 24 K) pour le 
TO7. 


BASIC Microsoft extrêmement complet, utilisant parfaitement la puis- 
sance du très moderne microprocesseur 6809. 


Cartouches de programmes en mémoire morte {16 K), permettant de 
changer instantanément d'application ou de langage (BASIC, LOGO), 
assembleur...). 


Interfaces en option pour le TO7-7@ permettant la digitalisation 
d'images, l'incrustation d'images vidéo et l'accès au réseau Télétel. 


I, Le BASIC 


Le BASIC est actuellement commun aux deux TO7; il possède toutes les 
fonctions classiques du BASIC Microsoft dans ses versions les plus 
récentes (version 5.0): 


Ce 


Test !F..THEN...ELSE. 


Quatre types de variables, dont la double précision, tes noms pouvant 
avoir 16 caractères significatifs. 


Instructions graphiques très souples: LINE, BOX, COLOR, SCREEN, 
etc: 


Instructions de gestion du stylo optique. 

Éditeur ‘plein écran‘. 

Traitement des erreurs: ON..ERROR.., ERR, ERL, RESUME. 
Opérations sur les fichiers de données. 


BASIC très complet est aussi très rapide : il peut être encore amélioré 


avec l'extension disque, qui apporte de nouvelles instructions comme 
RENUM, PAINT, DRAW, CIRCLE, etc. 


II. Organisation de la mémoire 


1. Organisation générale 


Elle est la même pour les deux TO7. 


S0980 à $3FFF 
(9 à 16383) 16 K octets 

$4998 à $5F3F Mémoire écran : 2 fois 8 K octets 
(16384 à 24383) | situés à la même adresse 

6990 à $xxxx 

(à partir de 24576) 
$ES98 à $E7BF 
(57344 à 59327) 
$E7CA à $E7E7 
(59328 à 59367) 


$E8d9 à $FFFF 
(59392 à 65535) 


Cartouche ROM {interpréteur BASIC); 


Mémoire RAM utilisateur ; premiers 
1,5 K réservés au moniteur et au BASIC 


Pour le DOS: 1,9 K 


Adresses d'entrée-sortie 


Moniteur : 6 K octets 


REMARQUE: Ün nombre précédé de $ désigne une adresse exprimée en 
hexadécimal (voir chapitre Ill et annexes). 


Un nombre précédé de &H désignera dans toute la suite une va/eur 
hexadécimale. 


Sur le TO7 de base, la zone mémoire utilisateur se termine en 
$7FFF(32767): l'extension 16 K porte l'adresse de fin à $BFFF(49151), 
soient 24 K octets, dont 22,5 disponibles pour les programmes BASIC. 


2. Accès aux différentes banques de mémoire du TO7-7# 


Sur le TO7-7@, la mémoire utilisateur va jusqu'en $DFFF(57343), soient 
32 K octets (dont 39,5 disponibles pour les programmes BASIC]. 


La zone située entre $A009(40966@) et SDFFF comprend en fait 2 banques 
de 16 K octets commutables par logiciel; l'extension mémoire porte ce 
nombre à 6. 


Ces différentes banques pourront par exemple être utilisées comme 
mémoires auxiliaires, au temps d'accès beaucoup plus rapide que celui 
d'une disquette, ou encore comme deuxième page d'affichage (à envoyer 
une fois “remplie” dans la mémoire écran, pour créer des animations), 
etc... 


Dans tous les cas, une seule banque est accessible à un instant donné, 
mais on peut très facilement les commuter en intervenant sur le PIA 
système 6821. 


On utilisera par exemple pour cela le sous-programme en langage machine 
suivant, que l’on appellera avec la valeur V convenable placée dans le 
registre B (voir plus loin): 


COMMUT LDU # $E7CB 


LDA  ,U 

ANDA # $FB 

STA , U À — reg. de contrôle 
STB — 2,Ù V reg. de données 
ORA # $94 

STA , U 

RTS 


La valeur V—15 correspond à la 1"° banque, la valeur 23 à ia seconde, 231 
à la 3°, 103 à la 4°, 167 à la 5° et 39 à la 6°. 
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Le moniteur 


Nous décrivons ici les principales routines (sous-programmes) utilisées par 
l'interpréteur BASIC, ou bien sûr par des programmes utilisateurs écrits en 
langage machine et devant effectuer des entrée-sortie ; les routines corres- 
pondantes seront alors appelées par une instruction JSR. 


Bien que les moniteurs des deux TO7 ne soient pas identiques, les adresses 
des routines sont exactement les mêmes, puisque situées entre $E890 et 
$E833 où on trouve les branchements aux routines proprement dites. 


Tous les paramètres utilisés par celles-ci sont eux aussi entièrement 
compatibles, ce qui explique que les deux TO07 fonctionnent avec le même 
BASIC. 


Celui-ci n'exploite toutefois pas certaines nouvelles caractéristiques du 
TO7-70 (16 couleurs, incrustation d'images vidéo): nous indiquons donc 
ici comment exploiter ces possibilités. 


1, Gestion de l'écran: routine PUTCS 


L'affichage est de 25 lignes de 49 caractères en mode alphanumérique, et 
de 2909 lignes de 32 points (groupés par 8) en mode graphique. 


On trouvera dans la seconde partie (chapitre 11} la description détaillée de 
la mémoire écran, constituée de 2 blocs distincts situés à la même adresse, 
et sélectionnés par la valeur du bit @ du registre de données du PIA 
système 6846 (adresse $E7C3). 


1. Rôle de la routine-utilisation 


La routine PUTCS$, située en $E803, permet d'effectuer l'affichage de tous 
les caractères alphanumériques, y compris les accents, les caractères semi- 
graphiques et les caractères utilisateurs ; tous les mouvements du curseur 
sont possibles. 


Elle permet aussi de gérer tous les attributs d'écran: positionnement de la 
fenêtre, couleur de la forme, du fond et du tour, taille des caractères, type 
du défilement (scrolling}, masquage, mise en mode incrustation pour le 
TO7-76. 


Cette routine est utilisée par les instructions BASIC suivantes: 


— PRINT: écriture de tous les caractères alphanumériques 
—  LOCATE: positionnement du curseur, qui peut-être rendu invisible 


— CONSOLE: définition de la fenêtre, type du défilement (avec ou sans 
couleur, normal, doux ou en mode page) 


—  SCREEN: couleurs de la forme, du fond ou du tour, qui peuvent être 
inversées 


—  ATTRB: taille des caractères, qui peuvent être masqués 
— UNMASK: démasquage des caractères masqués. 


Nous ne détaillerons donc pas l'emploi de la routine pour toutes les opéra- 
tions ci-dessus, effectuées plus commodément à partir du BASIC. 


2. Cas du TO7-78 


Le BASIC ne permet pas pour le TO7-7@ l'accès aux couleurs pastels et la 
mise en mode incrustation. 


Pour colorer la forme, le fond ou le tour en une couleur pastel, il faudra 
donc exécuter la séquence suivante, écrite en langage machine (voir 
chapitre IV): 


COLOR LDB # $1B 


JSR $E893 Séquence ‘d'échappement 
LDB # Valeur 
JSR $E8g3 2° appel 


Valeur” comprise entre: 


—_ &H7Ÿ et &H77: modification de la couleur de la forme 
— &H78 et &H7F: modification de la couleur du fond 
— &HB8Ÿ et &H87: modification de la couleur du tour de l'écran. 


La valeur exacte à transmettre à PUTCS$ sera obtenue en ajoutant à &H7@ 
ou &H78 ou &H89 un des nombres suivants: 


gris 

rose 

vert clair 
sable 
bleu clair 
parme 
bleu ciel 


M OO M À © D = € 
de SE de EE EE: 


orange 


REMARQUE: les valeurs de &H4@ à 47, &H5Q à 57 et &H69 à 67 provo- 
queront la modification des mêmes éléments dans une couleur normale, et 
ce pour les deux TO7. 


Enfin, le TO7-79 sera mis en mode incrustation (si l'extension est présente) 
par la séquence: 


INCRUS LDB # $1B 


JSR $E893 Séquence ‘d'échappement ” 
LDB # $6D 
JSR $E893 2° appel 


On pourra alors superposer une image vidéo issue d'une source extérieure 
(télévision, magnétoscope, caméra} avec une partie d'écran, la couleur 
noire devenant ‘transparente ”. 


Enfin, la valeur &H6C (au lieu de &H6D) permettra de supprimer 
l'incrustation. 


I. Le clavier 


Le clavier est organisé de manière matricielle ; le décodage des touches est 
effectué grâce au PIA système 6821. 


Le port B (programmé en sortie) situé à l'adresse $E7C9 fait passer l’une 
après l’autre chaque ligne à @: si une touche de la ligne est enfoncée, la 
valeur lue sur le port À (programmé en entrée) situé en $E7C8 est diffé- 
rente de &HFF, ce qui permet le décodage de la touche. 


Nous verrons dans la quatrième partie de ce livre une routine permettant 
de décoder simultanément plusieurs touches appuyées en même temps, ce 
qui n'est pas possible avec tes routines du moniteur. 


1. Routine de lecture rapide: KTST$ 


Cette routine, située en $E809, teste si une touche est enfoncée, sans 
décodage de celle-ci; le bit C du registre CC du 6809 est alors positionné à 
1. 


Lors de l'exécution d'un programme BASIC, cette routine est appelée à 
chaque nouvelle instruction exécutée (voir 2° partie): si elle retourne C=1, 
la touche est décodée par GETC$ et le programme arrêté s'il s'agit de 
STOP ou CNT/C. 
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2. Décodage du clavier: routine GEFC$ 


Cette routine, située en $E806, retourne dans l’accumulateur B du 6899 le 
code ASCII de la touche enfoncée, génère un bip” sonore et gère la répé- 
tition des touches. 


Elle est utilisée par les instructions BASIC de lecture du clavier, c'est-à-dire 
INKEY$ et INPUT. 


REMARQUE: la fonction INKEY$ du BASIC TO7 retourne le dernier carac- 
tère frappé au clavier lors de l'exécution des instructions précédentes, 
même s'il ne l’est plus au moment de la lecture; on devra donc dans 
certains cas appeler un INKEYS$ ‘vide’ pour effacer le registre $65B1 
mémorisant ce caractère {voir 2° partie). 


HI. Affichages graphiques 


Les deux routines PLOTS (située en $E80F) et DRAWS (située en $SE8QC) 
permettent respectivement d'afficher un point ou un caractère et de tracer 
une droite. 


Elles sont utilisées par toutes les instructions graphiques du BASIC, c'est- 
à-dire PSET, LINE, BOX et BOXF. 


1. Routine PLOTS 


Si le registre CHDRAW situé en $6041 est mis à @, la routine affiche le 
point de coordonnées contenues dans les registres X (colonne, de @ à 319) 
et Y (ligne, de @ à 199} du 6809. 


La couleur du point doit être placée dans le registre FORME situé en 
$6038 : sa valeur doit être comprise entre — 8 et + 7 pour le TO7 et -8 à 
+ 15 pour le TO7-76. 


Une valeur positive correspondra à un point de ‘forme (bit correspondant 
mis à 1 dans la mémoire de forme: voir 2® partie) et une valeur négative à 
un point de “fond'' {bit mis à GO}. 
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Les codes des couleurs ‘’forme’ sont les suivants: 


noir 
rouge 
vert 
jaune 
bleu 
magenta 
cyan 


SJ OO O1 À © ON = ç@ 


blanc 


Pour le TO7-70, il existe huit codes supplémentaires: 


gris 8 
rose .. 9 
vert clair : 140 
sable : 11 
bleu clair 2 
parme : 13 
bleu ciel : 14 
orange 5 49 


Dans les deux cas, un code de couleur “fond” sera obtenu en prenant 
l'inverse du code “forme” diminué de 1: — 1 correspond au noir, — 2 au 
rouge, etc. 


Si le registre CHDRAW contient un nombre C positif, le caractère de code 
ASCII C sera affiché en (X,Y}, avec X compris entre 1 et 49 et Y entre Get 
24: les couleurs de fond et de forme seront alors celles du registre 
COLOUR situé en $693. 


On peut aussi écrire directement un caractère par un appel de la routine 
CHPL$ située en $E833. 


2. Routine DRAWS$ 


Les conventions sont les mêmes que celles de ia routine PLOTS:; la routine 
trace un segment de droite entre le dernier point allumé (registres PLOTX 
et PLOTY situés en $603D et 643F) et le point de coordonnées {X,Y), 
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Si CHDRAW est différent de @, le segment tracé le sera sous forme de 
caractères. 


REMARQUE: Pour le TO7-7@, le bit 4 du registre STATUS situé en $6019 
doit être mis à @: dans le cas contraire, la mémoire ‘’ couleur” ne sera pas 
modifiée. 


IV. Autres routines-registres du moniteur 


On trouvera en annexe la liste complète des routines du moniteur, permet- 
tant d'effectuer toutes les opérations fondamentales: lecture du cryaon 
optique, génération de musique, entrée-sortie sur cassette, etc. 


Toutes ces opérations seront réalisées beaucoup plus commodément à 
partir du BASIC: le détail des procédures à suivre pour un fonctionnement 
correct de ces routines ne sera donc pas décrit ici. 


On trouvera aussi en annexe les adresses et le rôle des principaux registres 
du moniteur, tous situés à partir de l'adresse $6%99 (page @ du moniteur). 


Tous ces registres sont bien sûr accessibles par le BASIC (instruction 
POKE), ce qui permet diverses interventions. 


“Sur le TO7-70, on pourra par exemple redéfinir entièrement les touches du 
clavier: on placera pour celà dans le registre PTCLAV situé en $S60CD 
| l'adresse d'une table (créée en BASIC sous la forme d'une chaîne de carac- 


. tères) contenant les nouveaux codes ASCII des touches. 


À 

_ On pourra de la même manière redéfinir les caractères affichés sur l'écran; 

| y LA LA L Ca LS 

| l'adresse du nouveau générateur de caractères sera placée pour celà dans 
le registre PTGENE situé en $S66CF. 


3 
Le 6899 


Les deux ordinateurs TO07 de THOMSON sont conçus autour du très puis- 
sant micro-processeur 6899 de MOTOROLA. 


il s'agit en effet d'un micre-processeur 8 bits (bus de données à 8 lignes) 
capable de traiter des valeurs sur 16 bits (micro-processeur ‘pseudo 
16 bits”). 


Il bénéficie de tous les progrès récents en matière de micro-processeurs : 
richesse des modes d'adressage, banalisation des registres internes, struc- 
ture quasi orthogonale (la plupart des instructions fonctionnent avec tous 
les modes d'adressage}, multiplication, etc... 


1. Système binaire-codage hexadécimal 


On sait que les ordinateurs ne peuvent utiliser que les valeurs @ ou 1, 
appelées “bits”. 
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Un ensemble de 8 bits constitue un ‘’octet”, qui est l'information de base 
manipulable par un micro-processeur 8 bits. 


Un octet permet de coder 2° — 256 valeurs différentes, qui pourront repré- 
senter une valeur numérique sur 8 bits, un caractère alphanumérique codé 
en ASCH (voir annexes), un code d'instruction, une partie d'adresse 
(toujours codées sur 16 bits}, etc. 


Exemples : 


19119119 = 1x2/+1x25+1x24:1x22+:1x21 = 182 


La méthode la plus efficace pour noter le contenu d'un octet consiste à 
l'écrire en hexadécimal (base 16 et non 19 comme habituellement): la 
valeur sera alors représentée par deux chiffres hexadécimaux, codant 
chacun 4 bits. 


Le codage est le suivant: 


Valeur décimale 


) 6) 
1 1 
2 | 919 2 
3 | dg11 3 
4 0100 4 | 
5 9191 5 
6 | 911% 6 
| 7 g111 7 
; 8 1000 8 ; 
| 9 1991 9 
; A 1919 19 
B | 1911 11 | 
C | 1199 | 12 
D | 1191 | 13 
E | 1119 | 14 
EF 1111 | 15 | 


Exemple : 


18119119 = &HB6 
&HES5 = 11199191 


Arithmétique binaire : 


Pour pouvoir représenter une valeur négative, on convient toujours que le 
bit de gauche, dit de ‘poids fort” car correspondant à 2’, représente le 
signe de la valeur. 


Une valeur négative est alors représentée en ‘complément à 2°”: la valeur 
absolue est complémentée bit à bit et on ajoute 1 {on peut aussi en hexa- 
décimal retrancher la valeur absolue de &H109, ce qui revient au même). 


Exemple : 
58=&H3A= -58-&HC6 


(voir annexe) 


Dans le cas d'une valeur codée sur 2 octets, c'est le bit de poids fort du 
1*"octet qui représente le signe. 


Exemples : 
14621-&H391D-—14621=-&HC6E3 


Une soustraction sur 8 bits est toujours effectuée en prenant le complé- 
ment à 2 du 2% opérande, que l'on ajoute au 1°". 


Une valeur positive et une valeur négative s'ajoutent ‘normalement. 
Exemple: &H5C+&HC6—&H22, soit 92—58=34 


en effet : 91911188 «— gH5C 
+ 11990118 + &HCG 


DP1d8818 —> gH22 


&H1B+&HC6—-&HET, soit 27—58—-31 
Exemple: &H1B+&RHC6—-&HE1, soit 27—58—-—31 
REMARQUE: le micro-processeur positionne certains indicateurs (retenue C 


et débordement V en particulier) à chaque opération effectuée. 


On emploiera donc des branchements ” signés” pour s'assurer de la vali- 
dité des résultats obtenus en complément à 2. 


On effectuera par contre des branchements ‘non signés” si on ne s'inté- 
resse qu'aux valeurs absolues des résultats. 
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I. Les registres internes 


Toutes les opérations élémentaires que le micro-processeur est capable 
d'effectuer, le sont grâce aux neuf registres internes suivants: 


15 7 @ 


Accumulateur D 


Registre d'index X 


Registre d'index Ÿ 


Pointeur de pile U 


Pointeur de pile S 


Registre de page directe DP 


Registre de codes condition 


Registre compteur de programme PC 


1. Les accumulateurs 


Les accumulateurs permettent d'effectuer toutes les manipulations de 
données et tous les calculs arithmétiques ou logiques; il s’agit donc des 
registres les plus souvent utilisés. 


Les deux accumulateurs 8 bits À et B peuvent être juxtaposés en un seul 
accumulateur D de 16 bits; les deux accumulateurs À et B normalement 
indépendants forment alors un tout, À représentant les poids forts (bits 8 à 
15) et B les poids faibles (bits @ à 7). 


La plupart des opérations classiques sont réalisables avec l'accumula- 
teur D, d'où bien sûr un gain de place et de rapidité par rapport à un micro- 
processeur 8 bits classique. 
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2. Les registres d’index X et Y 


Ce sont des registres 16 bits permettant essentiellement de pointer des 
données en adressage indexé. 


On peut aussi les utiliser pour effectuer des opérations arithmétiques. 


3. Les pointeurs de pile U et S 


Lorsqu'un programme appelle un sous-programme, le micro-processeur 
doit conserver quelque part en RAM l'adresse où il faudra revenir après 
l'exécution du sous-programme; il en est de même en cas d'interruption, 
où certains registres doivent aussi être conservés. 


Ceci est toujours réalisé au moyen d'une p//e système: seule la dernière 
vateur empilée, pointée par le registre S, est accessible (fonctionnement du 
type ‘last in, first out”). 


Le fonctionnement de la pile utilisateur Ü est exactement le même. 


En cas d'empilement d'une nouvelle valeur ou adresse, le pointeur est 
d'abord décrémenté, puis il y a empilement. 


Le dépilement s'effectue en sens inverse: la valeur située au sommet de la 
pile est dépilée dans le registre spécifié (PC dans le cas de RTS}, puis le 
pointeur est incrémenté. 


S et UÜ pointent donc toujours sur /a valeur située au sommet de la pile. 


REMARQUE 1: dans le cas où on empile un registre 16 bits, c'est d'abord 
loctet de poids faible qui est empilé, puis celui de poids fort; les deux 
octets sont donc placés en mémoire dans l'ordre logique, c'est-à-dire poids 
fort en « et faible en a + 1, a étant contenu dans S (ou Ul. 


REMARQUE 2 : les registres U et S ont exactement les mêmes possibilités 
d'adressage indexé que X et Y. 


4. Le registre de page directe DP 
Ce registre 8 bits permet de placer la ‘page 9°” n'importe où dans la 


mémoire; on peut ainsi faire de l'adressage ‘’direct”, toujours plus rapide 
et plus concis que l’adressage absolu” normal. 
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5. Le registre de codes condition CC 


Il s’agit d'un registre d'état de 8 bits, modifié à chaque instruction exécutée 
par le micro-processeur. 


7 6 5 4 3 2 1 (@) 


Les bits 9, 1, 2, 3 (et 5) correspondent aux indicateurs arithmétiques, les 
plus souvent employés. 


a} bit C (‘carry ”": retenue) 


Ce bit est positionné par toutes les opérations arithmétiques: il prend la 
valeur de la retenue dans le cas d'une addition (ADC, ADD), et celle du 
complément de la retenue dans le cas d'une soustraction (CMP, SBC, 
SUB). 


Exemples :&H5C+&HC6 + C = 7 
&H5C—-&H3A — C - ÿ (car 5C — 3A = 5C + C6 + retenue = 1) 


b} bit V {”Overflow”: débordement en complément à 2) 


Ce bit est mis à 1 lorsqu'une opération donne lieu à un débordement, c'est- 
à-dire lorsque la retenue des bits 6 (plus fort poids des valeurs signées) 
n'est pas la même que celle des bits 7 (bits de signe). 


Exemples : 


&H5C+&HC6-8&H22 + V — ÿ car les deux retenues sont égales à 1: 
pas de problème 


&HBC+&HCE —> V -1 


débordement; le résultat (&H52) est faux (en effet, — 116 — 58 — — 174, 
qui n'est pas représentable en complément à 2 sur 8 bits). 


c}bit Z {zéro/ 
l'est mis à 1 si le résultat d'une opération (ou d'un chargement, ou d'un 
stockage, etc.) est nul: 


Exemple : 


CLRA (‘clear A’: FA) — Z=1 
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d) bit N ("Négative ”: résultat négatif] 
[| représente le bit de poids fort du résultat de la dernière opération. 


Il est donc mis à 1 dans le cas d'un résultat négatif, c'est-à-dire supérieur 
ou égal à &H89 en valeur absolue. 


e} bit H (‘Half carry”: demi retenue) 


ll permet au 6899 d'effectuer des opérations directement en décimal: il est 
en effet positionné à 1 dès que le nombre présent sur les 4 bits de poids 
faible est supérieur à 9. 


f) bits ! et F (‘Interrupt mask” et ‘Fast interrupt mask”: masques 
d'interruption) 


Lorsqu'ils sont mis à 1 (instruction ORCC), les interruptions normales IRQ 
et les interruptions rapides FIRQ (sauvegarde dans la pile des seuls PC et 
CC) sont masquées, c'est-à-dire ignorées. 


g) bit € (‘’Entire state”: pile complète) 


En cas d'interruption, et lorsqu'il est à 1, tous les registres du 6899 ont été 
sauvegardés dans la pile (interruption RQ). 


/ 6. Le registre compteur de programme PC 
. s'agit du compteur ordinal, qui pointe en permanence sur /a prochaine 
instruction à exécuter. 


- Ce registre est utilisable comme index, ce qui permet par exemple d'écrire 
des programmes entièrement translatables. 


II. Les modes d’adressage 


Le 6899 possède six principaux modes d’adressage, ce qui lui confère une 
très grande puissance logicielle. 


Dans tous les cas, les octets spécifiant l'adresse suivent le code opération, 
lui même codé sur 1 ou 2 octets. 
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1. Adressage inhérent ou implicite 


Il n'y a alors pas de partie adresse puisque le code d'instruction se suffit à 
lui-même. 


Exemple : 


INCA : A+1 A 
CLRB : f —8B 


Dans le cas des instructions d'échange et de transfert de registres (EXG et 
TFR), ou d'accès aux piles (PSH, PUL), l'octet spécifiant le code opération 
doit être toutefois suivi d'un ”post-octet ” indiquant les registres concernés 
(voir plus loin). 


2. Adressage immédiat 


La valeur à utiliser immédiatement suit le code opération; selon ce dernier, 
elle occupera 8 bits (LDA, CMPB, etc...) où 16 bits (LDX, CMPY, ADDD, 
etc). 


La notation normalisée d’une valeur immédiate est le dièse (Æ), en principe 
suivi d'un dollar {($) signalant une valeur hexadécimale (notation 
assembleur}. 


Exemple: Notation assembleur: LDX #$839E 
Valeurs en mémoire:  8E/83/9E 


3. Adressage direct 


Les 8 bits de poids fort de l'adresse de la valeur à traiter sont contenus 
dans Île registre de page directe DP: l'adresse est donc codée sur 1 seul 
octet représentant les 8 bits de poids faible. 


Ce mode d'adressage est toujours plus rapide que l'adressage étendu. 


Exemple: Notation assembleur: STD $1C 
Valeurs en mémoire:  DD/1C 


Si DP contient &H61, l’accumulateur D sera envoyé en $611C (A) et 
$6110 {B). 


REMARQUE: Le registre DP ne peut être chargé que par une instruction EXG 
ou TFR (ou PUL). 
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4, Adressage étendu 


C'est l'adressage le plus classique: l'adresse est codée sur 2 octets spéci- 
fiant l'emplacement de la mémoire où se situe fa valeur à traiter. 


Exemple: Notation assembleur: DEC $68FE 
Valeurs en mémoire : 7A/64/FE 


La valeur située en $S6@FE est diminuée de 1. 


5. Adressage relatif 


Il est utilisé uniquement dans les opérations de branchements relatifs 
(BRA, LBEC, BSR, etc...), réalisées le plus souvent après un test (BIT, CMP, 
TST). 


L'adresse est ici égale à un déplacement positif ou négatif à ajouter au 
contenu du compteur de programme PC pour obtenir l'adresse effective du 
branchement. 


Un déplacement codé sur 1 octet permettra d'avancer de 127($7F) octets 
ou de reculer de 128($80) octets au maximum: il s’agit alors d'un branche- 
ment relatif court (BEQ, BRA, etc... 


Au-delâ, on utilisera un branchement relatif long (mnémonique précédé de 
"L": LBRA, LBSR, etc...) : le déplacement est alors codé sur 2 octets. 


REMARQUE: lors de l'exécution de l'instruction de branchement, le PC 
pointe sur le début de l'instruction suivante ; c'est donc à cette adresse qu'il 
faut ajouter le déplacement. 


Celui-ci sera bien sûr codé en mode complément à 2 pour une valeur néga- 
tive: voir annexes. 


Exemple: Soit les instructions suivantes, implantées à partir de $8000. 


8909 39 RTS 

8291 96 58 LDA $58 
8993 27 5 BEQ +5 
8995 2B F9 BMI —7 
8997 BD 35EB JSR $35EB 
BJYA HOSUIFE.. 


Si $58 (adressage direct} contient @, il y aura branchement en $8095 + 5 
— $8Y9A — SUITE. 
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Si $58 est négatif (bit 7? — 1), il y aura branchement en $8097 — 7 
— $8000, c'est-à-dire au RTS. 


Si $58 contient une valeur comprise entre 1 et &H7F, il y aura exécution 
du sous-programme $35EB (adressage étendu), puis passage à SUITE. 


6. Adressages indexés 


Il s'agit du mode d’adressage le plus puissant du 6809. 


Le principe est que dans la partie adresse de l'instruction est toujours 
spécifié un index {appelé ‘base ”}) et un déplacement. 


L'adresse effective est alors égale au contenu de l'index augmenté du 
déplacement (éventuellement négatif). 


Exemples: DA 4,X: si X contient $81E9, c'est la va/eur contenue en 
$S81ED, soit $3F par exemple, qui sera chargée dans l'accumulateur A. 


LEAU — 5,X: c'est l'adresse $81F4 qui sera chargée dans U. 


Dans le cas du 6899, le déplacement peut être constant (nul, où codé sur 
5, 8 ou 16 bits) ou variable (contenu d'un accumulateur À, B ou Dj); les 
index peuvent être indifféremment X, Ÿ, U, S et PC, l'emploi de ce dernier 
autorisant par exemple de faire de l'adressage relatif indirect par rapport au 
PC (permettant d'écrire des programmes entièrement translatables)..…. 


Il est possible aussi de faire des auto-incrémentations ou décrémentations 
de l'index de 1 ou 2 (le déplacement doit alors être nul) et de l'adressage 
indirect : l'adresse effective est alors l'adresse contenue à l'adresse obtenue 
par index + déplacement (écrit entre crochets). 


Dans tous les cas, l'option choisie est déterminée par le ‘post-octet ” 
suivant le code opération, lui-même suivi éventuellement de 1 ou 2 autres 
octets spécifiant le déplacement. 


On trouvera en annexe le tableau compiet de tous les cas possibles, 
permettant de déterminer le post octet. 


Exemples : 

LDA ,%$S + A6/E4 : Valeur située au sommet de la pile —+ A 
LDA —2,X « A6/1E : Déplacement —2 codé sur 5 bits 

LIDA 29,ÙU «+ A6/CB 14 : Déplacement +28 codé sur 8 bits 

LDA B,Y «— A6/A5 : Déplacement contenu dans B 
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IDA ,X++— A6/8f : Déplacement nul; post-incrémentation de 1 


LDA ,-—-Y+s A6/A3 : Pré-décrémentation de 2; déplacement nul 
LDA [$8919]++ A6/9F 8919 : Contenu dex-—«aA,$8919 et $8411 contenant 
LDA [2,S]-A6/F8 #2 : Valeur située à l'avant dernière adresse pla- 


) cée dans la pileS A 


IV. Le jeu d'instructions 


Il se compose de 59 instructions fondamentales (se ramenant en fait à 56), 
permettant en fonction des registres utilisés et du mode d'adressage plus 
de 1499 combinaisons différentes ! 


On trouvera en annexe les tableaux décrivant toutes les instructions du 
6899 : mnémonique, code hexadécimal, nombre de cycles nécessaire pour 
l'exécution (1 cycle = 1 us. pour le 6899 des TO7), nombre total d'octets 
de l'instruction, action de l'instruction, bits du registre CC affectés. 


Nous ne donnerons donc ici que les significations des mnémoniques 
(anglais bien sûr; et quelques compléments sur certaines instructions. 


1. Les instructions 


/nstruction Description 
ABX Addition de B (8 bits non signés) à X + X 
ADC Addition avec retenue C 
ADD Addition 8 ou 16 bits 
| AND ET logique (bit à bit) 
ASL Décalage arithmétique à gauche d'un bit 
ASR Décalage arithmétique à droite (bit 7 conservé) 
BIT Test de bit: effectue un ET, sans modifier l'accu. 
CLR Mise à @ (clear) 
CMP Comparaison: effectue une soustraction, sans modifier le 
registre 
| coM Complément bit à bit: 1 FE, etc... | 
CWAI Attente d'interruption: effectue un ET avec le CC 
DAA Ajustement décimal de À (en 2 chiffres DCB) 
DEC Décrémentation de 1: 1 + V si valeur initiale — &H8@ | 
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OÙ exciusif (bit à bit: 1, 1 —+ @) 
Échange de registres (de même taille) 
Incrémentation de 1; 1 > V si valeur initiale = &H7F 
Saut inconditionnel (jump) 

Saut à un sous-programme: PC = pile S 

Chargement du registre x (load) | 
Chargement d'une adresse effective{(et non du contenu comme: 
par LD) en adressage indexé | 
Décalage logique à gauche de 1 bit {logical shift left) 
Décalage logique à droite {right) de 1 bit 

Multiplication non signée de À par B =D 

Complément à 2: 1-—FF =— 171, etc. 

Pas d'opération 

OÙ logique (bit à bit) 

Empilement de registres (push): S décroit 

Dépilement de registres (pull): S augmente | 
Rotation à gauche (avec C}) de 1 bit : 
Rotation à droite (avec C) de 1 bit | 
Retour d'interruption: restauration des registres 
Retour de sous-programme (restauration du PC) 
Soustraction avec retenue C 

Extension du signe de B à l'accumulateur D 
Stockage du registre x en mémoire 

Soustraction 

Interruption logicielle (sauvegarde des registres) 
Synchronisation avec un événement extérieur 
Transfert de registres (de même taille) 

Test par rapport à @ sur des valeurs non signées 


REMARQUE : Les instructions ASL et LSL sont en fait identiques. 


2. Les branchements relatifs 


a 
Branchement Description | 
BCC,LBCC Branchement si C = @ (carry clear) | 
BCS,LBCS Branchement si C — 1 (carry set) 
BEQ,LBEQ Branchement si égal, c'est-à-dire Z = 1 (equal) 

BGE,LBGE Branchement si supérieur ou égal (signé: branche si N =V, 


c'est-à-dire si résultat valide et positif ou nul} 
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Branchement 


BGT,LBGT 
BHI,LBHI 
BHS,LBHS 


BLE,LBLE 


BLO,LBLO 
BLS,LBLS 


BLF,LBLT 
BMI,LBMI 
BNE,LBNE 
BPL,LBPL 


BRA,LBRA 
BRN,LBRN 
BSR,LBSR 
BVC.LBVC 


BVS,LBVS 


Description 


Branchement si supérieur (signé: branche si N — V et Z — @) 
Branchement si supérieur, c'est-à-dire C = @ et Z = @ (higher) 
Branchement si supérieur ou égal, c’est-à-dire C = @ {higher or 
same) 

Branchement si inférieur ou égal (signé: branche si Z = 1 ou 
N Z V, c'est-à-dire si résultat valide et négatif ou nul) 
Branchement si inférieur, c'est-à-dire C = 1 (lower) 
Branchement si inférieur ou égal, c'est-à-dire C ou Z = 1 (lower 
or same) 

Branchement si inférieur (signé: branche si NZ V) 
Branchement si négatif, c'est-à-dire N = 1 (minus) 
Branchement si différent, c'est-à-dire Z = @ (not equal) 
Branchement si positif, c'est-à-dire N — À, ou encore valeur 
< &H7F 

Branchement inconditionnel (branch always) 

Ne branche jamais {branch never) : créé par opposition à BRA 
Branchement à un sous programme (subroutine) 
Branchement si pas de débordement en mode complément à 
2, c'est-à-dire V = @ 

Branchement si débordement, c'est-à-dire V — 1 (V set) 


REMARQUE : les branchements BCC et BHS (et LBCC et LBHS) sont en fait 
identiques, ainsi que BCS et BLO (et LBCS et LBLO)}. 


3. Compléments 


a){nstructions EXG et TFR 


Elles permettent respectivement l'échange et le transfert de registre à 
registre. 


Le code opération (1E et 1F) est suivi d'un post-octet spécifiant les 
registres concernés: le 1*'" chiffre hexadécimal {bits de fort poids) repré- 
sente le 1°" registre R1, le 2° (faible poids) le registre R2 de destination 
(pour TFRI). 


26 


Le codage est le suivant: 


) 
1 
2 
3 
À 
5 
8 
9 
A 
B 


Exemples : 


TFR SX = 1F/41: S envoyé dans X 
EXG U,D-<— 1F/39: U et D permutés 


b} Instructions PSH et PUL 
Elles permettent d'empiler ou de dépiler des registres. 


Le code opération (&H34 à 37) est suivi d'un post octet spécifiant les 
registres concernés ; chaque bit correspond à un registre, qui sera empilé 
où dépilé s'it a la valeur 1. 


7 ) 


Exemple: 


PSHS Y,X,A ++ 34/32 


Les registres sont toujours empilés dans l'ordre PC,U/S....CC: le dépile- 
ment s'effectue en sens inverse. 


S ou U ne peuvent être empilés dans leur propre pile; c'est donc U qui est 
empilié par PSHS, et S par PSHU,. 
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c}instruction SW1 


Elle permet de réaliser des interruptions logicielles ; elle est donc utilisée le 
plus souvent pour effectuer des arrêts sur adresse pour la mise au point de 
programmes. 


L'instruction SWI provoque l'arrêt du programme en cours: tous les 
registres (sauf S) sont sauvegardés dans la pile système S et il y a branche- 
ment à l'adresse contenue en $FFFA et FFFB. 


Les instructions SWI2 et SWI3 fonctionnent de manière identique (ce 
sont les interruptions les moins prioritaires); les vecteurs d'interruption 
sont situés respectivement en $FFF4 et $FFF2. 


Dans le cas des deux TO7, et pour l'instruction SW, l'adresse contenue en 
$FFFA est celle d'une instruction JMP [$692F]: il suffit donc de placer 
dans le registre SWI1 du moniteur, situé en $692F, l'adresse du sous- 
programme de traitement de l'interruption (qui écrira par exemple le 
contenu de la pile pour visualiser les registres): ce sous-programme 5e 
terminera par RTI. 
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4 
Le langage machine 


Le moyen le plus commode pour programmer en langage machine consiste 
bien sûr à utiliser un assembleur, permettant entre autres l'emploi des 
mnémoniques pour les instructions, l'écriture d'adresses symboliques, etc. 


Ceci est exclu dans notre cas, puisque nous désirons utiliser le BASIC et 
que celui-ci ne peut coexister avec l'assembleur dans le cas des TO7. 


Nous allons voir qu'il est cependant reiativement simple de créer à partir du 
BASIC des programmes écrits en langage machine. 


Le problème inverse se pose pour étudier un programme tel que l'interpré- 
teur où le moniteur; nous présentons donc un programme BASIC permet- 
tant de ”désassembler”” du langage machine. 
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1. Implantation d’un programme 


1. Méthode générale 


Nous donnerons dans la troisième partie de cet ouvrage un programme 
permettant d'implanter n'importe où en mémoire en nombre quelconque 
de routines, et celà de la manière la plus souple et la plus “lisible” possible 
(un nom pour chaque routine, adresses écrites en un seul mot, etc...). 


Pour de petites applications, il est parfaitement suffisant d'employer les 
quatres instructions suivantes : 


fe =, 


ti LLEHE., 2HFFO5 ‘Memoire Frote3ee à Fartir de $rFhl 
29 FOR IztHPFHi TO SHOFFF 

4 MEAD H$S:IF H$<2"FIN" THEN FÛKE I, YHLE "EH" +48 2: HEAT 
16556 CHTH ‘Liste des codes ,terminee Far FIN 

On écrira alors en 1909 les codes hexadécimaux correspondant au 
programme, octet par octet, en les séparant par des virgules. 


On enregistrera toujours sur cassette ou disquette Îe programme ci-dessus 
avant de faire exécuter le programme en langage machine : en effet, en cas 
d'erreur dans celui-ci, le résultat est dans la plupart des cas un blocage 
complet de la machine, obligeant à couper le courant, d'où bien sûr perte 
du programme. 


REMARQUES : CLEAR,a protège la zone de mémoire située à partir de a + 1, 
qui contiendra le programme en langage machine. 


En effet, la fin de la RAM est utilisée par le BASIC (entre autres pour les 
chaînes de caractères et la pile), qui pourrait donc sans celà écraser” le: 
programme. 


On notera aussi l'usage d'une variable chaîne (A$} pour charger les codes 
hexadécimaux, ce qui permet de ne pas écrire dans le DATA le fastidieux 
&H à chaque valeur. 
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2. Exemple 


Soit le programme élémentaire suivant, dessinant un triangle au centre de 
l'écran: 


LDX # $5008 Adresse centre écran 
LDD # $6000 1 point à gauche 

BOUCLE STD X Écriture dans mem.écran 
LEAX 49,Xx Ligne suivante 
ORCC # 591 1 - C 
RORA Construction ligne suivante 
RORB 
BHS BOUCLE Ligne pas encore pleine 
RTS Triangle terminé 


Pour traduire ce programme en hexadécimail, il suffit de lire les tableaux 
donnés en annexe. 


Par exemple, le code de LDX en adressage immédiat est 83; l'octet corres- 
pondant à l'adresse indexée notée ,X est 84; le branchement relatif à 
BOUCLE est codé — 11, soit F5 en complément à 2, puisque le PC pointe 
alors sur RTS (instruction suivante). 


D'où le DATA: 
1446 DATA SE, St. EH CE,. #4, &, ED, 8, 234,68, 26 1h: 1: 46,56, 24, 


Après avoir fait exécuter le programme BASIC de création (par RUN}, un 
simple EXEC &H7F@1 dessinera un triangle (de côté 16 points) au centre 
de l'écran. 


REMARQUE : Pour corriger un programme en langage machine, il suffit bien 
sûr de modifier le DATA, et ensuite de refaire exécuter le programme de 
création 
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Il. Fxécution-passage de paramètres avec le BASIC 


1. Instruction EXEC 


Cette instruction permet le branchement vers un sous-programme écrit en 
langage machine, qui doit se terminer par RTS. 


n'est pas prévu ici d'échange de paramètres avec le programme BASIC : il 
est toutefois possible de charger dans le sous-programme certaines 
adresses de la RAM avec des valeurs que l'on récupèrera par la fonction 
PEEK. 


2. Instructions USR-DEFUSR 


La fonction USR permet d'appeler un maximum de 10 sous-programmes 
différents écrits en langage machine, dont on aura défini préalablement 
l'adresse par une instruction DEFUSR n (n, facultatif, doit être compris 
entre @ et 9). 


L'appel sera réalisé en écrivant: 
V-USRn(x) 


La valeur x de l'argument est alors chargée automatiquement dans 
l'accumulateur flottant FAC dont l'adresse ($6155: voir 2° partie) est 
placée dans le registre X ; le type de l'argument est rangé dans l'accumula- 
teur À du 6899 selon les conventions suivantes : 


2 pour une valeur entière, que l'on lira en 2,X et 3,xX 
4 pour une valeur réelle, commencant en @,x 

8 pour une valeur double précision, en @,X encore 
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pour une chaine de caractères: c'est alors l'adresse du descripteur 
de la chaîne qui est placée dans X ; on lira donc en @,X la longueur 
de la chaîne, et en 1,X et 2,X l'adresse du premier caractère de la 
chaîne (voir 2° partie). 


Pour retourner une valeur dans la variable V, il faut bien sûr dans le sous- 
programme repositionner À et X avant le RTS, et placer la valeur soit en 
G,X (types 3,4 et 8), soit en 2,X et 3,X (type 2 : entier). 


REMARQUE: On peut aussi transmettre l'adresse à d'une variable V du 
BASIC par: USRn (VARPTR(V))}. 
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VARPTR étant de type entier, «a est alors rangée automatiquement en 2,X 
et 3,X. 


On pourra ainsi traiter dans le sous programme les valeurs de plusieurs 
arguments: il suffit en effet pour celà de connaître la représentation 
mémoire des variables BASIC, que nous verrons dans la 2° partie (elles 
sont toujours placées les unes après les autres, selon l'ordre de rencontre 
par l'interpréteur lors de l'exécution). 


HI, Désassemblage 


Alors qu'il est relativement très simple et rapide de traduire ” à la main”un 
programme assembleur en hexadécimal, le travail inverse est beaucoup 
plus long et fastidieux. 


Il est de plus nécessaire de décoder un grand nombre d'instructions avant 
de pouvoir comprendre le fonctionnement d'un interpréteur ou d'un 
moniteur | 


Nous donnons donc ici un programme BASIC réalisant automatiquement 
ce désassemblage. 


1. Le programme 


À partir d'une suite de codes hexadécimaux, il fournit sur l'écran ou sur 
l'imprimante un listing assembleur normalisé. 


Le listing est le suivant: 


HpPAAEt “Inmitialisation des tahleaus, 

HAE CIN COGgE SOS 4 LOC SE SES à, HO DES à 

“rad REC Ch:FOÜR Hzi TO SE 

TASSE REHD AS:IF LENCHBIS THEH AEPEMALE ENV 4 ne CODE A 
DFeC$: MÉAD ME AG! 0 GOTOSFAS A 

HP ChENHÉ:NEXT H 

ri FOR Hei TO 

rien PREND HS: IFLENE M$ IESTMENH ADREMAIE NS ne CCr2 he AT 
Rs: CUITS LEE 

APS CMS: HEXT 

Sr RESTORE SAeG: FR Hal TU 1% 

Bet MEME US$, HS: MDRSMALE MEHIAMSE à 

G7een CODES HG 120 : Hé ADR SE 
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“red CODFSE ADR 1e 'L4CR HET H 

mes CODE ES et BR NE ST EeÉ 

ET LOS 25 "RSR M HE ES ME, 

Sra7 CODE 2 ERA" : MC 22 es 

Scott CObDge 1 4) 2='ESR" : Hé 141 =5 

HP 

Mr395 ‘Desassemhlate,.…., 

svt EHPALIT* rifdres 5€ de cdeparté Mesa, SAR: CLOSE 1 
s 7418 IF LEFTSCAS, Lost THEH OFEH OM, MSURH : ADR = 
LHAFFFF:LMAHESET ELSE PEN MU LULPRT :":4S=NICSe A, 21: LM 

Fe 00 : JHPUIT " Adresse de fiat Hesa, CS: ADRFSMALE" 
ELMMA4LEFTSCCS, à 1 

SrA42A4 CLS :ERSG : ADRSYALENENIMALEFTSC HS, à 5 

PSM FOR Lef TO LiH4 

SFS4S IF HORSRORF GOTOS F4 

SP610 ItOeb:CODr=A : PRINT#HL. HEC AC à: 

race CODSPFÉEKS ADR 2: PRINTHI, THEC SN: MESSE CO à: 

red IF EF=1i THEN Hz=1: GOTOS2SS A 

57526 

svredf FEI... ..,.. Traitement d'un code... 

SP IFCODzié O6 CODz1r THEM GOSURSSFAG ELSE CSeCOD&e EE 
DE 

Eraén IFCH='""THEH ER=i:NeT:PRINHTRI. TRE 13505 "3 ode 1e 
…istant":GOTISSSSA 

Art REÉM... Traitement. de l'adresse, 

AFÉAlA He COD D: PRINTH1, THE 135: HSPEEKC ADR 1 

SrAcA IF Hd COHTOSFSGQ ‘branchement 

SrecA IF H=f LOTS GG “Indexation 

Sr641 H&LEFTSCCS. SU IF AS=UPENM OR H&ZUPEULT COTES Sd A 
PES IF AS='ERC" OR HSSUTRE" COTE 4 

S'éng IF HA THEN IHl=-1:H=-H 

ere PEN, Ecriture de l'instruction... 

arr GOUSUBSO806 : PRINTH1, TABE ZI M CS: TARE LP 2: 

Grre@ IF INA THEH FRIHTRI, "#1: 

frs IF Hi THE FRINT#1, "#"; 

PAPE 15 BOIS JESSSAn : COTOSESSS A 111 TE 

PA 

SO PER... Branchement relatif, 


HUMMER 
7 
CO CO 00 0 6 05 1 
ns Fi Mi: 
DER 


J I NN 


‘mn 
\ 
“al 


RE. | 


IF WMsé Of COtesi GOTOSTSSA 
MES: IF “2127 THEM Kex-oûe 
A=ADR+E+X : GOTOSFES FA 

H=:IF K2127 THEH Mei-DSé 
BRL SEL PEEKE ADP+2 + ADR 42 
ARE UE +HENSE #9: GOTOSESER 


Hcrgssae 1e ie 
IF “127 GOTOSsSabE 
DLOSUESSA26 : ex MN LH "Eit 4 


37438 tes NO 1S:1F WA THEH Kzx-1é 

SOA AR=STR EE 4, fé: He : COTOSESAE 
SSAO IF AND LHIF 2LHIF THEH ASeCHR Se 91 4 EU 4 HEC PEE 
Ké ADR +2 5 1: Had : INDz=2 : COTOSSSAA 
conitt GUSUESSQRA: IEC AND &HiñiesA THEH IHDz]l ELSE THOSE 
CO es AND 1LS:IF Hé AND Hi GOTOSEt AA 


SORA N=Z:ON k4t GOTUS2D4S, S8ASA. SÈASS. SAUNA. SSBES, SE 
H SOA re 

Soñda Hé="'D, "4H$: SCOTIA 24 

sonds h$=", "+h4$+"+1: CÜOTOS 24H 

SOASA Het, +efh+ "+4: LITOSSZ 4 

OMS fée", "+48: COTOSÉZA4E 

SOA H$=",--"+46: GÜTOSRE4A 

soues A$S=". "44%: GUTOSÉ 244 

senrt Hé='e, "+48: COTUSE2 4 

Du te 12 Pie A$= "A ; "+HS : LOTOSSZ48 

con IF H<èS AND KetiX GOTORSEAE 

sein MaPEEL HORS: IE à mue r THEH AE -TSé 
cer Az STREE 8 04. AE: H=3 : LOTASAS AH 

SACAA IF K<rS AHD 2513 GUTOSE Qui 

Anse Hed:xz LPEEKC ADE+Z : “a HL10r THEM mo, 
2224 HRROÉEK+PEÉERE ADR ES 

on a Pen À A$= STE IR, HS 

SOD4n IF ING=Z THEH H&=CHPSE ST I +ABA+CHRSE TS à 
SOA LDÉTOSE Éd LA 

ss 4 EE : Her: Abe ter Tndex!t: COTOSSEAE 

Shan 
conan FE... PSM ou PULL: 

mode fpetilites MC 20 1F ef THE H=HS+ M LC 
HOME Memo imet MOD L'IF Veil THEH HS=HS+" HT 
SOUS Mekwiiles MOD Z:IF = 4 THEH AS=Aÿ+M RE" 
Son hieteinet MOD Z:IF Vel THEM AAA MUR 
GOUES MenQriles MOD DIF Vel THEH ASEHG4 NE 
CON AA Mean iMek MOD S:IF Vel THEH ASSET" 
GAP ex Tr HO Z:IF Me COTOSSSET 
SION IF RIGHTS CH, lue"EU THEH fié=A$+", UM" ELSE H$=H8+" 
Bons Memo: IF del THEH ASEHEET, FL 

2494 Hé=MiDge 4$. 2 1: GOTOSESEAN 

Soda REM. TPM ou El, 

sodiA Ve AND 1S:éesbié: 8e" " 

mu41S OH + GOTOS42S. 5646, 56455. 5S6d4n, ddr, SES, SE 
an, Se, 65466. 454604, 58646, SEd rt 

ce d 2x Ab=" r'étEtreur" FRS: GATOSESÉAA 

SAd2e Ag=A$+ "DO": COTOS ES 4 

cod 4 Hé=4$+ "ie": COTUSE dE 
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eds 
Ed dr 
Sid 45 
He dE 
Int dt her 
Site 
Sue 
He d 1 
SEdsi 
Fed 
ne tecper LL 
ie ) 4 
55515 
ent Le da PA 


HzhS+ "Se CATOSES SA 

H=H$4+ "LE COTOSE dE 

Ah=H$+ tit: COTOSSd4SA 

HS=HS+ "PC": COTOSSA4SA 

A$=HS+ "AH": LOTOSS dE A 

HS=A$+ "BR": CÛTOSS4S A 

HS=HE+"'CL NS SOTISS dE 

A$=HS+"CF" 

Î1F INbzA THEH INDz1l : H$&=Hg+", Mieu: CUITOSS 41 


PEN... Ecriture de T'instruction,, 
GOSSES : PRIATHI, THEC ZI CS: 

IF LEFT# HS. L11=" " THEN A#&=MIC SE ASE, 21 

PÉIHTAT. TABCSF M :IF LENMCHA#OSS THEN PRINTH1:PARIHT# 


1, THEC 1h: Le +] 


“9528, 
ar ep PR 
Féatnd(4 


Er 1 A 
Col en Be Loge £1 
er Es CT 
EE di 
f'$= tt te 
Se Et 
MA 7 Ed 
Sr rt 
Sergs 
me La te a LA 
tn tes LA 
HER 2A 


me ne 


eut ehe 5 4 
os Te JA 
on Eh à 
45941 
on Eh DL 2 
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A PRINTH#ITHESXT L':'ONTOSr 4 


PRIMTHI. HS: :IF INDES GOTOSSSS6 
HSPÉRRE MOP4S 1: IF Clé THEH PRIHTHI, "AUS 
PRTHTH#1.HEAGEE 1 CHE NI 


1 PE... .. Instruction suivante, ou, 


ACER = ACER +H 
"Fitiou 


PEN... Code of, sur € octets, 
ACT : HR SHOP +1 : COCDSPEÉERS ADF: 1 
PRIHT#1., MESSE CUITS: CEeCODRmE CC à 
IF “e1ié THEN CODZzi:METURN 
IF CE StEMPO" AND Ce UCe"e" 


AND ge 2 ESNT2" THEN 


: RFETURH 


JF CH=etENIE" THEN C$="SMTS" : RETURN 
IF C$="CNPO" THEH CE"CMPLI" ELSE Cée"CHPE" 
FETURH 


RE... Ecriture d'une adresse, 

FOR I=i To f4-1 

PÉEKS HCRATOU:IF WÉ16 THEN FRIHT#1, "A": 
PRINTH#I. ME SENS: 


A HEXT : RETLUIFH 


1 PEN... .Lgtermination de l'indez... 


IFCx HHDIZ1e12 THEN A$="FC": RETLUREH 

ex ANC SHÉM:TIF V<E THEN Age" RETUEM 
IF WSLHEA THEN Age!" RETUREH 

IF V=kH4f THEN H$="LI ELSE A$="c" 
FETURH 


NS  _— 


SAN? 
Le 5 Mb 
sad: 
SA 
59640 
59445 
SANS 
be LA LL 
SAAÉS 


BEM Instructions É6604,,,. 


DATA 
DATA 


4 DATA 


DATH 
DATA 
DATA 
DAT 
DATA 
DATH 
CHTA 
L'ATA 
DATA 
C'HTH 
DATA 


34 CATA 


3 CATA 
4 CATA 


GS CATA 


A ! 
Len 


CN CA RM NN NNUNLERANNCE 
UN SENS RIRE RE D CR A D 


LES An 0 EN LE NO 9 MON Le LA Gt tr Cp Va Las Dr Qi 0 Ur 5 0 4 0 D ii Li 


da 
h 


a Te A CA Re 0 es EN NO 9 ER ON SN TN Re & to fo le 
D Si 0 SN A CN OT 


et D Pt ND PO ND M MNT Teese ét he et A He Et Hé hé pet Li 


CHER OMR CR EN CA 0 Q 


DATA 
DATA 
CATH 
DAT 
CATHA 
DATA 
CATH 
CATH 
CAT 
CATH 
CAT 
DATH 
DATA . 
DATA 
DATA 
CHTA 
CATH 
CATA 
CHATA 


CATA L 


DATA 
CATH 
QOHTH 
C'ATH 
ATH 
CATA 
CATA 
DAT H 


HE 
AOCH,:89,-2, 94,5, 


Shi 


1,2. 
AOC, C9, -É,08,2.ES 4 
F8. AE. 4,PE, 


ACCA.: 836, -2.9E6,#, 
ACCEL CE, +2 


5 HE, 2,66. 0. FE. 
ADDC. C3,-2,02,2.63.6.6%. 
AHCA. 84,-8,94,2, Ad, @,Ed, 


ANDE. L4,-£: 04, 2,Ed4.4.F4, 


HHOL L D. JE. — 
F ? 


ASFR . 4, LASER. 5 
ASP 7,27. re 
FITH.EE. =. 


EITE CS — 
CLRA:4F, 1 
CLRF EE 
CHPFH. #1. -2 
CFE, Ed: 
CP M 
ph 1. 
COM. 2,63; 
CHI. DCE 
CAH: 191 
CECAH: 4f, 1. CECE. SA. 
DEC. AH: EH, RAR 
EURA. Sir GE 2, AE: 
EURE, C8, -2, De. 
EXC. 1E,2 
TH. 4, 1. THCB:3 
INC Cie CM PC . 
ue ES LÉE; M: PÉ 
SR, AN, 2 ee 12 ED .: 
LEA, Bei 
LOÉ.CE.: 
LCE:. CL. 
LCHI.ÛE., 


__ —} TI = ‘= 

HE 

. IA - 
10 TM Di 


A or 


Ù 


CT de OU A dat Let MCE md 
LA es Ee* - e 22 2: 
QE: 
TL 
( 
i 


j 


on 
_ 
Tu re} Fo) Fa à 
M1 
+} 


LEPA. 44.1, LERE 54 
LS. 4,264, Hird, 
MAIL, SD 1 

HEGA, 461, L, MEGE: 
HEC : RE . 
HOP.12.1 


2: 


nn 


Lh ‘” 


1 


D,ES, 


L 


5 


Ft 


AN 


2 

tr LU 

‘is 

, -_1 

en | 

4 
Eu 
ES: 
H1.2 
ri:3 
RE, 


3 ES 1 . 
Fe, 


FE 
= Ft. 
F1, 


Fés 
FC. 


RRARNNESX 


2 FE s 


:ÉE 5 


 * 


3 7 


Fe pa 


a CR AT 


Pad 


\ 
" 


si Pt iu 


CSN OT SG CA CR ON CT RL Un 


lait Ext 


our Ver Bee À 
e 
Pa 
145 
*" sf 


2% fat rt 


3 ! 


0 Et fr EE te 0 Gi Si Ce fr où D D ir M Ë Qt fr LD tr D à 


AT SA CT CD CR ON ES CS 


1 
1 


0 0 NU 6 0) I Ti Pi LA D E (90e min M & L int D 


V'xt 
OURS NMAMNSATL 


CAT 
DATÉ 
DATA 
CAT 
CATHA 
CATH 
CATA 
CATA 
OATA 
CAT 


CATA “FE 


CATH 
DATH 
DATH 
CAT 

CATA 
CHTH 
DATA 
UHTA 
DATA 
DATA : 
CHTA 
CAT 
C'ATH 

CATA 
CATA 

CATH 
CATH 


RAA: SH, — 
RE, CA: — 
CIRCC. 1H, 
FSHS, Sd, 
PULLS AS, 
ne de 
F'OL. . 
ÉNFEA : de. 


NS 


… Ni M. 


RTI. 
SÉCA, 82-298, 
SECB, C2, 8,02. 


10. 


TA. 3T, 9. 6 
AT DPF, 26. 6, 
STD. Of. EC. 4, 
“TU UF.SEF.4 
ST Pr HF 4, 


CUBA. GA, 7,90, 
SEE. CE, -2, Dit, 


DATA SE 


DHTH 
4 CATR 


DATH 


35 DATA 


44 CAT 


59 15 
SAS 


men For 
AS SA 
be Le 14 LA 
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c DAT 
1 CATA 


DATA 
DATA 
CATA 
CAT 
CHT A 


5 DATA 
A DATA 


CATA 


24 DATA 


HE. 
TE TH ET 
TEST. C2 
CAPE, 85 45, HS 
LMP SC, SC, HE 
L. [' 5 J [TE ! 
LOS SE. 
STSCF. 
ST OF. 
SUITE: 3F 
EH5, 24, EL, 25 
EGE. ZT. ECT, 2E 
ELE, °FELS.23. 
EMI, 76. 6HE. 
PRH. F1, EVE, 


EF.FF 
AFF 


FE 


. 


nc on 
mm, 
Pad 
Lu 
Con A 
tit 


26 a RTS, 


- ni Co 


L- 


» EE, 
EHT 
ELT, 
EFL 


‘E “s e A 


1, TSTE. SD, 1 
ÉE, FD, 
ES 
. EC 
CF.EE.FE 
SE. AE. RE 


at Pa Do no fu 


D DO fa 


FRETS 


His e 
A FE, SZ 


REMARQUE: La longueur relativement impressionnante du listing, et en 
particulier celle des DATA, est bien sûr due à la richesse du jeu d'instruc- 
tions et des modes d'adressage du 68909 


Dans un premier temps, on pourra d'ailleurs ne pas écrire les 25 instruc- 
tions situées de 58345 à 58486, en ajoutant seulement: 


58494 A$="" xxx ”’ 


Les registres concernés par TFR, EXG,PSH et PUL ne seront alors pas 
décodés. 


Commentaires sur le programme : 
Le programme se compose en fait de deux parties distinctes. 


Les lignes de 57990 à 57280 et celles situées à partir de 5994@(DATA) 
servent à initialiser les tableaux COD$ et COD2$ contenant les mnémo- 
niques de toutes les instructions, codées respectivement sur 1 et 2 octets; 
le tableau N est en même temps initialisé avec le nombre total d'octets de 
l'instruction : une valeur négative indique un adressage immédiat, ta valeur 
@ un adressage indexé {adresse codée sur 1,2 où 3 octets, en fonction du 
post-octet} et une valeur supérieure ou égale à 5 un adressage relatif. 


Ces tableaux sont ensuite utilisés par le programme de désassembiage 
proprement dit, constitué par les lignes de 57490 à 58956. 


Pour chaque instruction du programme en langage machine, il y a d’abord 
lecture du code COD d'instruction, d'où détermination du mnémonique C$ 
situé dans COD$(COD}) ou COD2$(COD). 


La partie adresse est ensuite traitée, en fonction de la valeur de N(COD). 


Cas du T07 sans extension mémoire : 


Les deux parties du programme devront être dissociées si l’on ne dispose 
que des 8 K de la version de base. 


On ne conservera donc pour le 1°" programme que les lignes de 570@0 à 
57280 et celles à partir de 59090, auxquelles on ajoutera les instructions 
suivantes : 


‘288 OFEH"0",2, "TABLEAUX" 
F318 FÜR 1=@ T0 255 

364 PRINT#2, CODSC I 2 CODES I 2, ME LH: HET 
‘334 END 
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Ce programme enregistrera donc une fois pour toutes sur cassette les 
tableaux COD$, COD2$8 et N (appuyer sur la touche ‘” Enregistrement” du 
magnétophone avant de faire RUN). 


Le programme de désassemblage proprement dit sera alors constitué des 


seules lignes 570060 et 57490 à 58950, auxquelles on ajoutera la lecture 
des tableaux: 


56199 UFEH"I",2, "THBLEAUX" 
SF11 FÜR Is TO 2535 
36124 INFUT#RE, CLOUS T 2, COLegé I 1, MOIS :HEXT 


2. Mode d’emploi-résultats 


Lorsque le programme demande l'adresse de départ, on tapera directement 
l'adresse hexadécimale du début du désassemblage ; on obtiendra alors sur 
l'écran 24 instructions décodées, et une demande de nouvelle adresse. 


Si on désire conserver le listing assembleur sur imprimante, on fera simple- 
ment précéder l'adresse initiale du signe “—"; le programme demande 
alors l'adresse de fin, que l'on tapera en hexadécimal toujours. 


La validité des adresses est bien sûr systématiquement contrôlée. 


Si on reprend l'exemple du programme dessinant un triangle, implanté ici 
en $BF@1, on obtient: 


BF] SE. 4e LD #50 
EF Ed CI Eu 2 15 [2 LC HS AA 
FA EL Ed STD PA 
6FH9 441 Ra Les Rate LEHYX di, 
BF AC 1H 1 ORCC ##4i 
BFGE dé RO 

EFAF BË ROFE 

EF1% Zi Fi EHS EF 
F1: 39 RTS 


La première colonne contient les adresses hexadécimales du début de 
chaque instruction; puis on a les octets correspondant à cette dernière (1 à 
5 octets au maximum), et enfin l'instruction décodée, écrite en notation 
assembleur normalisée. 


Pour les branchements relatifs, c'est l'adresse effective du branchement 
qui est donnée. 
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Pour l'instruction PULXx, les registres sont dépilés dans l'ordre listé 
(exemple: $65B PULS A,X,U): par contre, l'empilement (PSHx) 
s'effectue en fait dans l'ordre inverse. 


Les registres transférés ou échangés sont listés en clair (Exemple : $1599 
TFR  S,X), ainsi que tous les adressages indexés. 


Enfin, rappelons que # désigne un adressage immédiat, $ un nombre hexa- 
décimal et les crochets [| | un adressage (indexé ou non) indirect. 
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Deuxième partie 


L'INTERPRÉTEUR BASIC 
MICROSOFT 


Notre but n'est pas de donner ici une simple liste d'adresses de routines, ou 
de renseignements, sur l'interpréteur BASIC des micro-ordinateurs THOM- 
SON TO7 et T07-70,. 


Nous décrivons tout au contraire une méthode permettant de décoder 
n'importe quel interpréteur Microsoft, ceux-ci étant conçus toujours de la 
même (excellente |) manière. 


Une fois compris et décrit le fonctionnement de l'interpréteur (chapitre | et 
H}, nous étudions (chapitre Ill) le traitement de quelques instructions 
fondamentales du BASIC. 


Nous signalons enfin que certaines routines détailiées ci-après demandent 
un effort de compréhension; le lecteur se verra récompensé par toutes les 
applications qui découleront de cette étude. 
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L 


Comprendre l’exécution 
d’un programme BASIC 


Les instructions d'un programme sont décodées et exécutées par une 
routine qui se présente sous la forme d'une boucle, décrite à chaque 
nouvelle instruction. 


Grâce à une table des adresses, l'interpréteur détermine, à partir du code 
de l'instruction BASIC à exécuter, l'adresse du sous programme correspon- 
dant, qui réalise le traitement; l'instruction suivante est alors prise en 
compte pour poursuivre l'exécution du programme. 


Une fois décrit le codage d'un programme, puis trouvée la table des 
adresses et la boucle d'exécution, nous aurons tous les éléments néces- 
saires à la compréhension du fonctionnement de l'interpréteur. 
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I. Implantation et codage d’un programme 


1 — Pour trouver l'adresse à partir de laquelle est implanté un 
programme, on peut par exemple utiliser le programme suivant: 


14 PEN Programme 1 

ch HE6=Ù ‘HE Lode &Hdi,4Zz 

34 FÜR IS£HÉPAB TT] LH7FFF ‘FH 

49 IF FEEKCIO)=RHNd1 THEN IF PEEKCI+15=4H42 THEM FRINHT HE 
“be I 

OS HET : EMD 


Pour les TO7, on obtient les adresses $660C et $6619 (et aussi $66860, 
situé dans la zone des variables: voir chapitre suivant): le programme 
commence donc une vingtaine d'octets auparavant, soit exactement en 
$S65F5. 


2 — Le programme suivant permettra alors de visualiser en hexadécimal 
le codage d'un programme : 


164 REM Frogramme € 

114 HCRYD=ÉLNHESSFS 

129 CLS:FOR I=4DRD TO ADRG+ZZS STEP 1ÿ 
1369 PRINT HEXS< I +" N;:FOR Je] TU 1+3 
149 PRINT USING"4 ZX: MEXSCPÉEKC Jo 55 : MEAT 
159 PFRINT:HEXT I':EHD 


On obtient: 

2575 66 5 A 54 BC 29 260 56 72 6F 67 ré 
601 61 60 6D 65 28 32 6% 65 15 à 6E Ai 
660 44 SZ 34 D Z6 48 36 35 46 31 6 66 
613 CES ‘8 JD SK 51 26 493 Dé 41 44 52 
6625 39 20 EB 24 41 dd 9£ 36 C7 29 35 33 

3 — Connaissant le code ASCII (Annexes), on peut en déduire les 


éléments suivants: 


— Chaque ligne possède un en-tête de 4 octets: 


e Les deux premiers contiennent l'adresse de l'en-tête de la ligne 
suivante ; 


e Les deux suivants contiennent le numéro de la ligne. 


46 


— Chaque mot BASIC (REM, =, CLS, FOR, etc...} est codé sur un ou deux 
octets (le premier étant alors égal à &HFF), de valeur supérieure ou 
égale à &H86. 


— Chaque ligne se termine par un octet contenant @, qui précède l'en-tête 
de la ligne suivante. 


— La fin du programme est marquée par trois zéros consécutifs (ici en 
$6677): ils sont suivis de la zone où l'on trouve les variables. 


I, La table et les codes des mots révervés du BASIC 


1. Recherche de la table 


Lors de la saisie des instructions d'un programme, l'interpréteur reconnaît 
et code les différents mots du BASIC, rangés dans une table par ordre de 
codes croissants. 


Celle-ci contient les codes ASCII des caractères composant les mots; la 
dernière lettre est toutefois codée différemment pour marquer la fin de 
chaque mot. 


La table sera donc trouvée à l'aide du programme 1 précédent, en recher- 
chant dans la ROM BASIC (adresses de $0 à $3FFF) les caractères EN 
(codés &H45,4E) du mot END situé au début de la table (code &H86). 


On obtient $92,$162 et $1/758: mais un examen de ces adresses 
(programme 2 précédent, en modifiant ADR@) montre que le END (suivi de 
FOR, de code RH81) est bien en $92. 


Le début de ta table est donc en $92, et la fin en $269 : $26A contient un @ 
marquant la fin de la table. 


On constate de plus que le bit de plus fort poids du dernier caractère de 
chaque mot est mis à 1 dans la table. 


Le programme suivant permet de lister les 125 mots du BASIC, avec leurs 
codes (le programme 2, où l'on écrit différentes instructions et fonctions à 
la ligne 20, permet de constater que le codage change après le 87° mot, 
codé &HD6). 


+ 
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46 RE Frogramme 3% 

219 H4$="":COLE=LHSE 

224 FÜR Iz&HS2 TO LHESS 

PAD “EePÉEKCIS: IF X<ELHBG THEN HÉS=SHS+CHRSC X 5: GOTOZÉ6 

246 AS=HS+CHREC H-LHB8G 5: IF CODE<ZLHDS THEN PRINT HEKS<C CO 


CE; ELSE PRINT'FF®+HEZ#S CODE-S86 à; 
258 FRINT':"+4$, :CODE=CODE+1 :A$="" 
266 HEXT :END 


Le résultat est donné en annexe; on constatera que les fonctions sont 
codées sur 2 octets, le premier étant égal à &HFF,. 


La table des mots est donc en fait composée de 2 tables: 
— celle des instructions commence en $92 et comporte 86 mots (&H56), 


— celle des fonctions commence en $1CF {trouvé toujours grâce au 
programme 1, en recherchant les caractères SG de SGN) et comporte 
39 mots (&H27). 


2. Utilisation par l’interpréteur 


L'interpréteur utilise la table des mots en initialisant un des registres avec 
l'adresse du début de ia table; ce registre r est ensuite incrémenté pour 
balayer la table, jusqu'à ce que soit trouvée la suite des caractères compo- 
sant le mot à coder. 


L'initialisation du registre peut être à priori faite soit par l'instruction 
LDr # $0992 ou $91CF pour les fonctions}, soit par une instruction LDr 
adresse, ‘adresse’ étant l’adresse d'une mémoire contenant $9492 (ou 
$91CF). 


Le programme suivant recherche la valeur &H@992 dans la ROM et dans 
la RAM (de 56000 à $65F4): 


398 RENM Programme 4 

319 H=f: DezkHa2 

SCÛ Tü=6:11=LHSFFF : GLOSUBSSE 

338 ID=EHÉGGG : I 1=2LHÉSF 4 : COSUB350 

340 BEEF : END 

4 ‘ 

350 FOR IzIW TD 11 

360 IF FEEKCIUSR THEN IF PFEEKCI+15eB THEH PRINT HEXSC I 
: HE SC PEER I 1 52, HEXSE A 2+ HER SEE à 

374 MEXT':RETLUREN 
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On trouve $38AA et $6202, précédés tous deux de &H56 (code de RORB, 
qui ne convient pas): pour la valeur &H1CF (obtenue avec 29 A=1: 
B=&HCF), on trouve $38AF et $6297, précédés tous deux de &H27 (code 
de BEQ, ce qui ne convient pas davantage). 


Pour l'initialisation du début des tables, on doit donc chercher une instruc- 
tion ayant $3844 ou $6202 comme partie adresse, puis $38AF ou 
$6207 (on verra que la page @ du BASIC n'est pas située en $62, eton n'a 
donc pas à chercher une adresse $@2 ou $@7). 


Le programme 4 permet (en modifiant la ligne 310) de constater que l’on a 
nulle part une telle instruction. 


On peut pourtant constater que la zone de $6291 à $629A contient les 
mêmes informations que la zone de $38A9 à $38B2: cette dernière zone 
est donc recopiée dans la RAM à l'iaitialisation du système (par une routine 
située en $37E5), dans le but évident d'être utilisée plus tard !.…. 


On doit donc chercher dans l'interpréteur les 2 instructions: 


LDr # valeur 
LEAr d,r (ou ADD # d si r=D) 


avec d=$62%92 — valeur (ou $6297 — valeur) 


Le programme 4 légèrement modifié permet de lister toutes les instruc- 
tions ayant une adresse de $61F@ à $62@F par exemple; on en trouve 9, 
dont seulement 4 sont précédées d'un code d'instruction à adressage 
immédiat (LDU dans les quatre cas); il s'agit de $2969, 2A1F, 2A60 et 
37/E9. 


Un examen attentif, par le désassembleur de la première partie, des 
instructions situées autour de ces adresses montre que les instructions: 


2A1E LDU # $61F7, 
2A5F LDU # $61FC, 


correspondent respectivement à l'initialisation des registres Ÿ et B par les 
valeurs situées en $6292 (adresse du début de la table) et $6291 (nombre 
de mots), et par celles situées en $6297 et $6206. 


Dans les deux cas, il y a en effet utilisation de la routine suivante, située en 
$2A21: 


2A21 CLR $45 Numéro du mot dans la table 
LEAU 18,U $6291 ou 6296 
LDB ,U Nombre de mots dans la table 
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BEQ $2A5F 


LDY 1,U Contenu de $6292 ou 6297 + Y 

LDX S Adresse début du mot du buffer 
2A2E LDA Xe Une lettre du mot à coder 

BSR $2A88 Minuscule — majuscule 

SUBA Ve Une lettre de la table 


BEQ $2A2F Lettre suivante 

CMPA  Æ#5$89  Siégal, on atrouvé le mot 
BNE $2A76  Motsuivant 

etc. 


À titre indicatif, signalons que le codage d'une instruction est réalisé par 
une routine commençant en $29A3, appelée elle-même en $44C (ou en 
$424 si on est en mode commande): cette routine code les mots du BASIC 
directement dans le buffer clavier contenant les caractères de l'instruction, 
situés à partir de $6445: le codage est effectué lors de la frappe de la 
touche ENTRÉE‘ terminant l'instruction. 


Signalons aussi que la routine contenant l'instruction $2968 est utilisée 
par LIST: elle opère en sens inverse de $29A3. 


3. Application immédiate 


Il suffit de modifier (POKE ou LOADM) le contenu des octets $6201 à 
6203, et 56206 à 6208, pour pouvoir créer son propre vocabulaire BASIC, 
par exemple avec des mots français: voir troisième partie. 


IH. La table des adresses d'instructions 


La table des adresses de traitement des instructions et fonctions contient 
forcément une suite d'adresses de routines situées dans le BASIC: le 
1°" octet doit donc être toujours inférieur où égal à &H3F (ROM) ou, éven- 
tuellement, compris entre &H6@ et &H65 (RAM avant le programme). 


Le programme 5 suivant cherche donc dans la ROM une suite d'au moins 
20 couples d'octets consécutifs dont le 1°" est inférieur ou égal à &H3F. 


dan EM Frogramme 5 

41 FÜR 124 T9 &HSFER 

424 IF PEEKIII2EHSF LOTOdéé 

424 FÜR Jzi+2 TO I+2d48 STEP 2 "LOU adresses maxi 
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448 IF PEEKJi<&H4@ THEH HEXT 
456 IF Jil+4ÿ THEN PRINTHEKSC ID, HEXSCJ-10:I=J+i ‘228 
468 HEXT I 


On obtient $1C à $6D et $26B à $2C8: or, si l'on observe (programme 2) 
la fin de cette dernière zone, on s'aperçoit en fait qu'elle continue jusqu’en 
$2DE (soit 58 adresses), puisque jusque-là on ne trouve qu'en $2C9 
et $2CB les adresses $6233 et 56236, adresses où l’on a JMP $7F3 ren- 
voyant à une adresse de la ROM. 


Or, on pourra constater que seuls les 58 premiers mots du BASIC (de END 
à PLAY) sont directement exécutables. 


Une ultime vérification consiste à relever par exemple les 1°", 9°, 30° et 
36° adresses de la tabie, soient $53B, $5F2, $35EB et $35E6, correspon- 
dant en principe respectivement à END, RUN, CLS et BEEP. 


— EXEC &H53B inséré dans un programme provoque l'arrêt de celui-ci; 


— EXEC &H5F2 provoque le redémarrage du programme à partir de la 
première ligne ; 


— EXEC &H35EB efface l'écran; 
— EXEC &H35E6 génère un “bip” sonore. 


La table des adresses de traitement des instructions se situe donc bien en 
$26B : on trouvera ces adresses en annexe. 


Nous verrons au chapitre suivant que la zone de $29 à $6D représente la 
table des adresses des fonctions BASIC. 


Premières applications : 


Dans un programme en langage machine, un JSR $35EB effacera l'écran: 
un JSR $35E6 génèrera un “bip”. 


Un JSR $5F2 permettra d'appeler un sous-programme écrit en BASIC à 
partir d'un programme en langage machine. 


On pourra enfin étudier le traitement des diverses instructions du BASIC en 
listant les routines correspondantes. 
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IV. Le traitement des instructions 


1. Utilisation de la table des adresses 


H nous faut trouver l'endroit où s'effectue le branchement aux différentes 
adresses de traitement des instructions. 


On vient de voir que le BASIC doit pour celà, à partir du code C d'une 
instruction, calculer l'adresse : 


A=&H26B + (C—&H89) « 2, 


où se trouve l'adresse du sous-programme de traitement de l'instruction. 


On va donc chercher s'il existe dans la ROM ou la RAM une valeur &H26B 
(ou à défaut une valeur de &H267 à 26F par exemple, puisque la formule 
exacte du calcul de À est encore inconnue}: cette valeur pourra être 
précédée d'un code d'instruction à adressage immédiat (ce ne pourra être 
que LDr ou ADDOD) ou indexé, le pré-octet indiquant alors un déplacement 
sur 16 bits. 


On reprend donc le programme 4: on obtient les deux adresses $38AC et 
$6204, les deux octets $38AB et $6203 contenant la valeur &H92 (code 
de SBCA direct); ceci ne correspond pas à la condition ci-dessus. 


Il faut donc chercher une instruction ayant $384AC ou $6294 comme 
partie adresse ; la page @ du BASIC n'étant en effet située ni en $38, ni en 
$62 (voir paragraphe suivant), l'adresse ne peut être SAC ou $94. 


On reprend donc le programme 4 pour chercher $38AC, puis $6294 : on ne 
trouve pas $38AC, par contre on trouve $6204 en $2B36: l'octet $2835 
contient &HBE, c'est-à-dire le code de LDX en adressage étendu, ce qui 
correspond bien à ce que l'on cherche. 


Remarquons que si l'on n'avait pas trouvé, on ferait comme au paragraphe 
précédent, c'est-à-dire que l’on chercherait une instruction LDr # valeur, 
avec ‘’valeur” située par exemple entre $61F9 et 629F. 


On peut donc maintenant à l’aide du désassembleur examiner les instruc- 
tions autour de $2B35 : on y trouve effectivement le calcul de A ci-dessus. 
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Le listing complet est le suivant: 


2B25 JSR $6274 Contient RTS 
BNE $2B2B 
RTS Si3A en tête (‘) 
2B2B CMPA  # $S8ÿ Mot BASIC 2 
LBLO $722 Caractère ASCII (affectation) 
CMPA x $B9 Code de PLAY 
BHI $2B42 Code > &HB9 
2B35 LDX $6294 Début table (&H26B) 
LSLA (Code-&H89) x 2 — A 
TFR A ,B 
ABX (Code-89) « 2+$26B = X 
LDX ,X Adresse traitement 
JSR $B2 Voir ci-après 
JAP ,X Traitement de l'instruction 
2B42 CMPA  # $FF 
BEQ $2B4E 
CMPA  Æ$D5 Code de « 
BLS $2AFF Contient JMP $7F3 (SN Error) 
JMP [$629E] Contient $7F3 (SN Error) 
2B4E JSR $B2 Voir ci-après 
CMPA  ZÆ# $9C Code de MID$ 
LBEQ $1199 
CMPA # SA Code de INPUT 
LBEQ  $27A5 
CMPA  # $A4 Codede SCREEN 
LBEQ  $33CC 
JMP 56273 Contient RTS 


Application immédiate : 


En modifiant le contenu des octets $6204 et 6295, on pourra faire utiliser 
par le BASIC sa propre table d'adresses. 


On pourra alors créer son propre langage (par exemple un BASIC “entier” 
très rapide} en écrivant les sous-programmes correspondants. 


L'avantage est que l’on profitera ainsi de toute la partie de l'interpréteur 
réalisant le codage et l'édition. 


2. Routine $B2 


Cette routine fondamentale permet le “balayage” des caractères d'un 
programme. 
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Le programme suivant, appelé par USR, nous donnera tout d'abord 
l'emplacement de la page @ du BASIC: 


TFR DP,B Registre de pagef — B 
STB 3,X Poids faible accu. entier 
RTS 


Ceci correspond à la suite des codes hexadécimaux 1F(31), B9 (code de 
PLAY), E7, 3, 39 (code de 9), qui seront donc implantés en mémoire (en 
$65F8) le plus simplement possible par l'instruction 31 du programme 
suivant : 


31 FLATASSS:PÜKE LHSSFA. HET: FÜKE LMHSSFE, 3 
44 CÉFUSRSGHESFS : PRINT HEKS&LUSRE @ 32 


On obtient $61, qui constitue l'emplacement de la page @ du BASIC. 


D'où le listing de la routine $B2: 


61B2 INC SBA 
BNE $61B8 
INC $B9 
61B8 LDA SxXXXX Adresse caractère courant 
CMPA  ZÆ#ÆS$3A Caractère ‘’:’’2 
BHS $61C9 
CMPA  # $29 Espace ? 
BNE $61C5 
JMP $B2 Elimine les espaces 
61C5 SUBA # $30 Chiffre de0à9? 
SUBA # $DY 
61C9 RTS 


Cette routine incrémente donc l'adresse du caractère courant, contenue 
dans $61B9 et 61BA, puis retourne dans ie registre À le code du caractère. 


Le registre CC des codes conditions est positionné de la manière suivante: 


— Z est mis à 1 si l'on a un @ ou le caractère ‘’:", c'est-à-dire une fin 
d'instruction ; 


— C est mis à 1 si l'on a un chiffre, et à @ dans le cas contraire. 


REMARQUE: Cette routine existe sur tous les interpréteurs: elle peut être 
trouvée directement par le programme 1 (légèrement modifié) en cher- 
chant l'endroit de la RAM où se trouve l'adresse du caractère courant du 
programme. 
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3. Contrôles de validité 


La syntaxe des instructions, ou les valeurs de certains paramètres, sont 
systématiquement contrôlés par l'interpréteur au fur et à mesure de 
l'exécution d'un programme (par exemple ici, $2B42 contrôle la validité 
d'un code). 


Si l'un de ces contrôles est positif, il y a branchement en $353, le registre B 
contenant le code de l'erreur: voir $7F3 par exemple. 


Les variables systèmes ERR (code de l'erreur) et ERE {numéro de la ligne 
où s'est produite l'erreur), situées respectivement en $6189 et $618A (voir 
chapitre il la routine $770, en $7C2) sont alors positionnées. 


L'exécution est ensuite soit interrompue et le message d'erreur (contenu 
dans une table située en $1722) affiché, soit poursuivie en a (jusqu'à 
l'instruction RESUME) s’il existe dans le programme une instruction ON 
ERROR GO TO a. 


V. Boucle d’exécution d’un programme 


Pour ia trouver, il nous faut chercher dans la ROM un JSR, BSR ou LBSR 
$2B25 (ou $2B2B). 


Or, en remontant avant le sous-programme de traitement des instructions, 
on trouve immédiatement en $2B21 les instructions: 


2B21 BSR $2B25 Traitement 
BRA $2AED Début de la boucle 


D'où le listing de la boucle: 


2AED STS $8C 
JSR $32BB Surveitlance du clavier 
LDX $B9 Adresse caractère courant 
STX $34 
LDA NE ÿ ou ‘:”"? 


BEQ $2B92 Nouvelle ligne 
CMPA x $S3A 

BEQ $281F 

JMP $7F3 SN Error 
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2B92 IDD NX ++ 
BEQ $2B65 
LDD X+ 
STD $2C 
STX $B9 
LDA $86 
BEQ $2B1F 
LDA # $5B 
JSR 1955 
LDA $2 
JSR $1ED1 
LDA # $5D 
JSK 81955 

2B11  JSR $B2 
BSR $2B25 
BRA $2AED 


ÀA-t-on trois ÿ? 
Fin du programme 
Numéro de la ligne 


Sur dernier octet de l’en-tête 
+ Ÿ si TRON (voir $13JE) 
Pas de trace demandée 
Code de ”[” 

Écrit sur l'écran 
Numéro de la ligne 
Écrit le numéro 

Code de "}” 

Ecriture 

1°" octet de l'instruction 
Traitement 

Instruction suivante 


Routine de surveillance du clavier: 
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32BB JSR $6294 
JSR $E899 
BCC $32BA 
PSHS B 
JSR $E896 

32C8 à … 

… 32F1 


Application immédiate : 


En intervenant en $6294, 
clavier: voir 4° partie. 


Contient RTS 
KTST$ du moniteur 
RTS (pas de touche) 
Sauvegarde 

GETCS$ du moniteur 
Arrêt si CNT/C : boucle si STOP; 
Codetouche — $65B1 sinon 


on pourra supprimer ou modifier l'action du 
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Le traitement 
des variables 


Le traitement des variables sera décodé en étudiant l'instruction d'affecta- 
tion; on trouvera ainsi du même coup le traitement des opérateurs et des 
fonctions BASIC. 


Avant d'étudier la routine correspondante, il est nécessaire de connaître la 
représentation mémoire des variables et des tableaux, et aussi la manière 
dont est gérée la mémoire. 


l. Représentation des variables 


Les variables rencontrées lors de l'exécution d'un programme sont placées 
au fur et à mesure dans une zone de mémoire située après le programme 
fui-même: cette zone sera donc examinée à l'aide du programme 2. 


Pour les TO07, on trouve que chaque nom de variable est précédé d'un octet 
contenant la valeur du type de la variable (dans les 4 bits de plus fort 
poids), puis le nombre de caractères du nom diminué de un {les %, $, ! ou 
# éventuels ne comptent pas); on trouve ensuite le nom codé en ASCIL et 
enfin la valeur contenue dans un nombre d'octets égal à la vaieur du type. 
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Exemple: on écrit dans le programme 2: 


119 AB=1.5:CDUEX=-3 : AB$= "chaine": CBA=-2, 25 : ALROSRHÉESF 


On obtient: 

65 F5 ï Un 41 41 42 81 dû à D 24 43 
F6 FE +4 45 FF FD 31 41 4£ 6 66 LE 42 43 
6667 42 Ai 627 94 @ 43 À1 44 52 30 SF 


— Le bit de plus fort poids d'une variable entière (type égal à 2} repré- 


sente le signe; les 15 autres bits contiennent la valeur en complément 
à deux; 


Une variable réelle simple précision (type égal à 4) est codée en mode 
virgule flottante : le premier octet est égal à l'exposant de 2 augmenté 
de &H80: les trois autres octets contiennent la mantisse normalisée 
(inférieure à 1 et supérieure ou égale à 0,5), le bit de plus fort poids 
étant remplacé par le signe de la valeur. 


Exemple : 


— 2,25 = — 4 x 0,5625 — — 2° (2-1 + 2-4) 


d'où le codage: 


82 99 90 60 


— Une variable double précision (type égal à 8) est codée de la même 


manière, la mantisse occupant 7 octets. 


Le premier octet d'une variable chaîne (type égal à 3) contient le 
nombre de caractères de la chaîne: les deux autres octets représentent 
l'adresse de la chaîne, située soit dans le programme lui-même en cas 
d'affectation simple (variable — “chaîne ”), soit en fin de mémoire en 
cas de concaténation. 


REMARQUE : Le nombre d'octets d'une variable réelle peut changer selon les 
ordinateurs; de même, la représentation des noms de variable peut être 
différente. Par exemple, lorsque le nom est limité à deux caractères, le 
codage se fait toujours sur 2 octets, dont le bit de plus fort poids est posi- 
tionné pour indiquer le type. 


II. Représentation des tableaux 


Les tableaux sont placés dans une zone située après celle des variables: un 
tableau est créé dans cette zone par l'instruction DIM, ou à défaut par la 
première utilisation du tableau (la taille étant alors égale à 11). 


Le nom d'un tableau est codé comme celui d'une variable: il est suivi de 
l'en-tête suivant, qui précède les valeurs: 


— deux octets contiennent le nombre total d'octets occupé par le tableau 
(y compris l'en-tête); 


— un octet contient le nombre d'indices : 


— pour chaque indice, on a ensuite deux octets contenant la valeur maxi- 
male augmentée de un, en commencant par le dernier indice. 


Pour les valeurs, c'est le premier indice qui varie d'abord, puis le second est 
incrémenté, etc. 


Exemple: On écrit dans le programme 2: 


119 DIM HEX%E 3, 2: HB%6 1,021 : ABC SZ, Dos L: ABC S, Boss: ABACY 
s11=4:HBXC 1, 1 225 : HDRO=EMEEDS 


On obtient: 


BÉL:3 21 41 2 4 


1F 
66DF G 1 (5 é 6 


2 
3 6 4 GG 5 4 4 


IL Gestion de la mémoire 


L'interpréteur gère la mémoire à partir des adresses de chaque zone. 


Les mémoires contenant ces adresses peuvent être trouvées soit par le 
programme 1 (on recherchera par exemple la mémoire contenant l'adresse 
du début de la zone des variables, trouvée par comptage à partir de 
$65F5), soit par observation {le programme? permettra de trouver 
l'emplacement des chaînes, le contenu de $618C, 618D donne la valeur du 
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pointeur S, etc...) soit par l'étude de l'instruction d'affectation (voir par 
exemple la routine $A48, en $A8A). 


On trouve que ces mémoires sont situées en page @ du BASIC; contenant 
des adresses, elles occupent deux octets chacune: 


— $611C pointe sur la première instruction du programme, c'est-à-dire 
sur $65F5; 


— $611E pointe sur le premier octet de la zone des variables; 
— $6129 pointe sur le premier octet de la zone des tableaux; 


— $6122 pointe sur le premier octet libre situé après les tableaux, c'est-à- 
dire sur le dernier octet utilisable par la pile S: 


— $6124 pointe sur le ‘’fond” de la pileS: la zone des chaînes 
commence juste après ; 


— $612A pointe sur le dernier octet de la zone des chaînes: les caractères 
utilisateurs éventuels sont situés juste après, en commençant par la 
ligne du bas du dernier: la ligne du haut de GR$(9) est située en FIN-1, 
FIN étant la plus haute adresse du BASIC (deuxième paramètre d'un 
CLEAR, ou plus haute adresse de la RAM par défaut). 


Recherche d’une variable ou d’un tableau 


L'adresse de cette routine fondamentale de l'interpréteur sera trouvée en 
listant les premières instructions du traitement de l'affectation: celle-ci doit 
en effet d'abord déterminer l'adresse où devra être rangé le résultat, qui 
sera ensuite calculé. 


La routine recherche une variable ou un élément de tableau dans la zone de 
mémoire correspondante : elle crée cette variable (sauf si elle est située 
dans un calcul d'expression, ceci pour le cas où la valeur devrait être 
affectée à un élément de tableau, non déplacabie pendant l'affectation elle- 
même) ou le tableau lui-même, en les initialisant à @ s'ils n'existent pas 
encore ; elle retourne enfin l'adresse de la vateur correspondante. 


Dans le cas des TO7, la routine est située en $A48 (on trouve en effet en 
$722 l'instruction JSR $A48): elle retourne l'adresse de la valeur dans le 
registre X et dans la mémoire $613D: le type de la valeur est placé dans 
l'octet d'adresse $6105 : enfin, $61B9 (contenant l'adresse du caractère 
courant du programme) est positionné sur le premier caractère qui suit la 
variable ou l'élément de tableau. 
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Le listing est en effet le suivant: 


A48  CLRB 
JSR 

A4B  STB 
JSR 
BSR 


A52à ...A75 

A76  JSR 
LDB 
DECB 
LBEQ 
INCB 
BNE 


$B8 
$g4 
$6297 
$AGA 


$B2 
$07 


$B64 


1°" caractère du nom à chercher 
Entrée pour DIM, avec Bz$ 
Contient RTS 

Nom rangé à partir de $657A; 
nombre de caractères en $613C 
Valeur du type — 56195 

1* caractère après le nom 
Contient normalement 4 


Recherche début d’un tableau 


Pas de tableau (cas de FOR) 
Code de ”’ (”’ 

Elément de tableau 
Variable 

Début de zone des variables 
Fin zone des variables ? 
Variable n'existe pas encore 
1° octet d’un variable 


Garde les 4 bits de fort poids 
Valeur du type 
Comparaison des noms 


Variable trouvée 

Pas la bonne variable 

Variable suivante 

Variable ajoutée en fin de zone (sauf si $A48 a été 
appelée en 5899), après déplacement de la zone 
des tableaux 

Adresse dans X et $3D 


Puis on a, pour les tableaux: 


B12 à 

….B62 

B63  LDB 

B65  PSHS 

B67 à 

…BE8 

BE9 à 

…C72 

C13  STX 
RTS 


#$5F 


B 


$3D 


Calcule et empile les indices 

Ou CLRB en $B64 

5F ou # dans la pile 

Cherche nom du tableau (et RTS si pile contient 
9) ; tabl. créé par $B97 si n'existe pas encore 


Calcule l’adresse de l’élément 
Adresse dans X et $3D 
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Le lecteur est bien entendu vivement invité à étudier les instructions ou 
sous-programme non listés ici pour des raisons de place. 


Amélioration possible: Lorsqu'on étudie le traitement des instructions du 
BASIC, on s'aperçoit que l'interpréteur appelle la routine $A48 chaque fois 
qu'il rencontre une variable ou un élément de tableau. 


Par exemple dans le cas d’une boucle, il y a donc à chaque passage 
exploration de la RAM jusqu'à trouver la valeur correspondante, située 
pourtant toujours au même endroit dans le cas d'une variable. 


On verra dans la 4 partie que ceci peut être évité, en intervenant en 
$6297; la vitesse d'exécution des programmes sera alors très nettement 
augmentée. 


V. Traitement d’une expression 


1. Instruction d'affectation 


L'instruction se présente sous la forme: 
variable — expression 
(variable pouvant être un élément de tableau). 


La routine de traitement est la suivante: 


722  JSR $A48 Recherche de la variable 
STX $3F Adresse de la valeur 
LDB # $D4 Code de =" 
JSR $Dg Contient JMP $7EB 
LDA $95 Type de la variable 
PSHS À 
JSR $81A Calcul de l'expression 
PULS À 
734 JSR $2519 Conversion éventuelle de l’exp. dans le type de 
la variable 
JSR $CD Contient JMP $2562 
LBNE $1C36 Si tvpe 2,4 ou 8; range valeur à l'adresse contenue 
dans $3F 
73D à … Sitype 3; affecte la chaîne résultat à la 
…/6A variable 
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Les routines situées en $7EB et $2592 sont appelées de nombreuses fois 


par l'interpréteur, 


— $7EB est utilisée pour tous les contrôles de syntaxe: elle teste si le 
caractère courant est bien égal à celui contenu dans l'accumulateur B 
(SN Error sinon), puis elle retourne le caractère suivant: on a en effet: 


JEB CMPB 
BNE 
JMP 

753 LDB 
JMP 


[$61B9] 
$7E3 
$B2 
#$02 
$353 


Code du caractère courant 


Caractère suivant 


Code erreur SN: syntax error 


Affichage erreur; arrêt 


— $2592 positionne le registre CC du 6809 selon la valeur x d'un type, 
contenue dans l’octet $61%5 (ou dans le registre A si le point d'entrée 


est en $2544): 


Si x = 2 (entier), N et C sont mis à 1, Z et V à @ 
Si x = 3 (chaîne), Z et C sont mis à 1, N et V à @ 
Si x = 4 (réel), V et C sont mis à 1, N et Z à @ 


Si x = 8 (double précision), NZ,V et C sont mis à @. 


On a en effet: 


2592 LDA 
2594  CMPA 
DECA 
DECA 
DECA 
BLE 
BCC 
ORCC 
258F RTS 


2. Calcul d’une expression 


$g5 
#$08 


$259F 
$259F 
# $02 


ÿ — Csi8 


1-23; 1 = Nsi2 


Il est effectué par la routine $81A: celle-ci range le résultat x dans 
“Faccumulateur flottant” (utilisé par l'instruction USR du BASIC) situé à 


partir de $6155. 


— Si x est entier, il est placé en $6157 et 6158; 


— Si x est une chaîne, l'adresse du descripteur de la chaîne (c'est-à-dire 
toujours $658A, adresse où l’on trouve la longueur et l'adresse de la 
chaine) est piacée encore en $61657 et 6158: 
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— Si x est un réel, la valeur absolue est rangée de $6155 à 6158, le signe 
étant contenu dans $615D (dans le bit de plus fort poids): 


— Si x est un réel double précision, l'accumulateur va de $6155 à 615C; 
le signe est toujours en $615D. 


Enfin, le type du résultat est placé dans $6105, et il y a positionnement de 
$61B9 sur le premier caractère qui suit l'expression. 


Le listing est le suivant: 


81A 
81D 


82A à 
876 
8/78 


BSR 


CLRA. 


CMPX 
PSHS 
LDB 
JSR 
JSR 


875 
BSR 
BRA 


$815 


# $9641 


À 
# $91 
5336 
$774 


$883 
$82A 


Revient sur caractère précédent 


Ou LDA $41 en $81E 


Test de débordement mémoire 

Traite un opérande; valeur dans l’accumulateur 
flottant 

Décodage d’un opérateur ou RTS 

Calcule une sous-expression 

Suite de l'expression 


3. Traitement d’un opérande 


On verra que la routine $883 contient un JSR $81E pour chercher la valeur 
de l'opération situé après l'opérateur T: tous les opérandes sont donc trai- 
tés par la routine suivante, située en $77@: 


770 


77B 
789 


789 à 
…/D4 
7D5 
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JSR 
LDX 
JSR 
BEQ 
BCC 
STX 
JMP 
JSR 
BCC 
CMPA 


BEQ 


CMPA 
LBEQ 


$627C 
$B9 
$B2 
$76B 
$784 
$B9 
$1E93 
$A36 
$8gg 
# $2E 
$77B 


# $BD 
$623C 


Contient RTS 


1" caractère de l’opérande 
MO Error (Missing Opérand) 
On n’a pas un chiffre 

On a un chiffre 

Traitement des constantes 
Retourne C—$ si on a une lettre 
Variable 

Code de ”’.” 

Constante réelle 

Décode et traite + unaires,’’ (chaîne), NOT, &, 
ERR et ERL, USR 

Code FN 

Contient JMP $7F3 (SN Error) 


INCA A-t-on FF (fonction)? 


BEQ $89D Contient JMP $2A93 
7DE à … Teste si on a (et SN Error sinon; calcule l’exp. 
AT T entre () 
888  JSR $A48 Recherche de la variable 
STX $57 Adresse 
JSR $CD Contient JMP $258#2 
BNE $84A Si variable numérique 
RTS Si variable chaîne 
89A JMP $1CY2 Valeur dans accu. flottant 


4, Applications 


En intervenant en $623C, on pourra utiliser des fonctions utilisateurs (FN): 
voir troisième partie. 


En intervenant en $627C, on pourra modifier la routine $770 du traitement 
d'un opérande, par exemple au niveau du calcul des constantes, où de la 
recherche d'une variable: voir quatrième partie. 


VI. Traitement des fonctions BASIC 


On vient de voir qu'il est effectué en $2A93: on a: 


2A93 JSR $6288 Contient RTS 

JSR $B2 Deuxième octet du code 

TFR À,B CodeC — B 

LSLB x=(C—$89) x, 2 —+ B 

JSR $B2 Caractère suivant 

CMPB # $4C PTRIG 

BLS $2AA5  Siinférieur ou égal 

JMP [$6213] Contient $7F3 (SN Error) 
2AA5 PSHS B x = pile 
2A A7 à … Traitement des paramètres; conversion en réel 
….2AE7 pour les fonctions de code $FF84 à 89 (SQR à TAN) 
2AE2 PULS  B Débpile x 

LDX $6299 Contient $9424 

ABX X pointe sur x° adresse 

JSR [4,X] Traitement de la fonction 

JMP $24FD Contrôle du type 
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VIT. 


On constate immédiatement que la table des fonctions commence en 
59920, ce qui correspond à ce que l’on avait trouvé au chapitre |: elle se 
termine en $0060D. 


On trouvera en annexe les adresses de traitement de toutes les fonctions 
BASIC (lues dans la table, ou décodées différemment, par exemple pour 
TAB ou SPC, etc...). 


Application immédiate : Un programme écrit en langage machine peut utili- 
ser directement des fonctions BASIC, par exemple SOR, CSNG, etc..: voir 
3° partie. 


Traitement des opérateurs BASIC 


L'enchaînement des routines correspondantes est relativement complexe. 


1. Table des opérateurs 


On a vu que les opérateurs sont décodés en $82A; on a: 


82A à 833 Initialisations 
834 à Codage dans $6143 des opérat. de relation: 
…B4A 1si>,25s1=,35s>,4si <,5siz,6si< 
84B LDB $43 

LBNE $97A Traite les opérat. de relation 
851à … x = (code opérat. -$C7} — B,ettest de 
.…85E concaténation de chaîne 
85F LBEQ $DBB Traitement de la concaténation 
863  PSHS B x — pile 

LSLB 2xx — B 

ADDB _ S: 3+x — Bet dépilement de x 

LDX #$606E Début de la table 

ABX $6E + 3x —+ X 
B6C à 875 Voir ci-après 


La table des opérateurs commence donc en $QQ6E : elle comprend trois 
octets pour chaque opérateur: 


— le premier représente la priorité de l'opérateur (&H7F pour la plus 
grande, celle de la puissance); 
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— les deux autres l'adresse de traitement. 


Les informations concernant tous les opérateurs sont listées en annexe. 


2. La routine $883 


Elle calcule une sous-expression aTb: le listing est le suivant: 


883 STB $41 Priorité de l'opérat. courant T 
CMPB _ # $7F 
BEQ $8F3 Opérateur puissance 
LDU 1,X 
PSHS U Adresse traitement deT — pile 
CMPB  #5$51 
BLO $995 Opérateur logique (AND à IMP) 
ANDB # $FE 
CMPB x $7A 
BEQ $SOÿE Opérateur MOD et @ 
JSR $939 Opérande à — pile 
JSR $81E Calcule b; bit le T’ suivant 
89D JSR $24FD b numérique (SN Error sinon)? 
JSR $95A Dépilement dans $6163 à 616B de l’opérande en 
haut de là pile (on y trouve donc maintenant 
l’adresse du traitement de T) 
8A3 à Conversion si a et b de types <; permutation s'ils 
… 6B1 sont entiers 
8B2 RTS Branche au traitement de T 


On observera qu'en $8F3 (opérateur puissance) et $995 (opérateurs 
logiques}, on a exactement la même succession d'appels des routines 
5939, $81E et $95A, suivie du branchement à la routine de traitement de 
l'opérateur ($2391 pour ? ; l'adresse située en $7B sert en effet pour les 
opérateurs de relation: voir $97A à 99B, puis $99C). 


Le lecteur observera aussi le dépilement dans Ÿ des adresses de retour des 
routines $939 et $95A, le retour se faisant alors par une instruction JMP 
,Ÿ ; cect permet de n'empiler que les opérandes et opérateurs successifs. 


3. La gestion des priorités 


On constate que $883 appelle lui-même la routine $81E; celle-ci range 
donc la priorité de T {opérateur courant) dans la pile, puis lit l'opérande b et 
l'opérateur T' suivants: on arrive alors en $86C, où l'on a: 
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86C  LDA ,S Priorité de T, rangée en $81E 


CMPA _,X Priorité de T”, dans la table 
BHS 5853 Si priorité de T >celle de T' 
BSR $812 b numérique (SN Error sinon)? 
BSR $883 


$853 contient l'instruction PULS A,PC. 


Donc si la priorité de T est supérieure ou égale à celle de T”, on dépile la 
priorité de T et on retourne en $89D (car le JSR $81E en $89A place $89D 
dans la pile); d’où le calcul de l'opération correspondant à T (cas de a *b 
+ .….). 


Si la priorité de T est inférieure à celle de T”, il y a un nouvel appel de $883, 
c'est-à-dire que la priorité et l'adresse du traitement de T sont embpilés, 
ainsi que la valeur de l’'opérande b; l'opération correspondante ne sera 
donc exécutée que plus tard (cas de a + b «...). 


4, Applications 


Un programme écrit en langage machine peut utiliser les routines de traite- 
ment des opérateurs BASIC, en particulier +, @ et MOD: voir la troisième 
partie. 


On pourra aussi écrire une routine simplifiée de traitement des opérateurs 
(pour + par exemple) utilisable en BASIC et conduisant à des calculs plus 
rapides de 50 %: voir la troisième partie (INC). 
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3 


Etude de quelques 
instructions BASIC 


Nous détaillons ici le fonctionnement de certaines instructions fondamen- 
tales du BASIC TO7. 


Les instructions sont bien sûr traitées sous des formes très voisines sur 
tous les micro-ordinateurs, d'où l'intérêt général de cette étude. 


Celle-ci nous permettra d'envisager diverses interventions sur l'interpré- 
teur, que nous verrons dans la suite de notre ouvrage. 


1, Instruction de branchement 


Le mot GO est traité en $606 : selon qu'il est suivi de TO ou de SUB, on va 
respectivement en $624 ou en $612, avec $61B9 positionné sur le premier 
caractère suivant. 
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1. GO TO 


L'instruction GO TO a est donc traitée de la manière suivante : 


624 JSR $B8 Premier chiffre de « 
JSR $6FD Calcul de &, rangé en $6134 
BSR $66E Cherche le # de fin de ligne 
LEAX 1,X X pointe sur la ligne suivante 
LDD $34 X — D 
CMPD  $2C n° # de la ligne du GO TO 
BHI $636 x > 8 =æaprès la ligne actuelle; sinon, chercher 
avant 
LDX $1C Adresse du début du programme 
636  JSR $4A4 Retourne dans X l'adresse de la ligne de n° & (ou 
C=1 si n'existe pas) 
BCS $655 UL Error 
LEAX —1,X Adresse du Ÿ précédant 
STX $B9 Positionne le caractère coûrant 
RTS Provoque l'exécution de « 


Routine $66E {ou $668B]}: Elle commence par: 


66B LDB # $3A Code de ” : ” 
66D LDA # SSF Ou CLRB en $66E 


On a ensuite de $66F à 696 la recherche, à partir du caractère courant du 
programme, à la fois d’un @ et du caractère dont le code a été mis dans B 
(en $66B ou $66E): l'adresse correspondante est placée dans X. 


$66E recherche donc la fin de la ligne courante (9): $66B recherche ia fin 
de l'instruction en cours (9 ou $3A). 


Cette routine fondamentale est utilisée chaque fois que l'interpréteur doit 
sauter quelque chose: elle est donc en particulier utilisée aussi par 
RETURN, REM, DATA, ON, IF et FOR. 


Dans le cas des TO7, la routine détecte les caractères de code $22 (guille- 
mets ; les caractères de code $3A sont alors ignorés jusqu'aux deuxièmes 
guillemets), FF (fonction: un octet est alors sauté) et 89 (ceci pour les cas 
où l'on a des IF imbriqués; la mémoire $6171 est alors incrémentée). 


Conséquence immédiate : 


Si l'on intervient dans le programme lui-même, par exemple, pour rempla- 
cer des constantes par leur valeur binaire, ou des variables par leur adresse 
(voir quatrième partie), il ne faudra jamais placer les valeur &H@, 22, 3A, 
89 ou FF. 
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2. GOSUB et RETURN 


Le traitement de GOSUB «a est le suivant: 


612  LDB #593 On va empiler trois registres 


JSR $336 Test de débordement mémoire 
LDU $B9 Caractère courant 

LDX $2C Numéro £ de la ligne courante 
LD'A # $BC Code de SUB 

PSHS U,X,A 

BSR $624 GO TO: positionne sur ligne « 
JMP $2AED Boucle d'exécution du programme 


Lorsque l'interpréteur rencontre RETURN (traité en $640), il positionne S 
sur la valeur en haut de la pile (RG Error si ce n'est pas &HBC), puis arrive 
en $65D où l'on trouve: 


65D  PULS A ,X,U 
STX $2C Restaure 8 (ligne du GOSUB) 
STU $B9 Caractère courant sur æ 

663 BSR $66B Cherche fin de GOSUB «x 
CMPX #$8D96  Ignoré ici (sert pour REM) 
STX $B9 Caractère courant 

66A RTS On est revenu apres GOSUB 


REMARQUE: Les boucles non terminées sont dépilées en $646 (routine 
$2F3 appelée avec &HFF dans $613F: voir paragraphe Il}, avant le retour 
au programme principal). 


3. ON 


L'instruction ON expression GO... est traitée en $6D7 (voir $36B5), où la 
valeur x de l'expression est rangée dans $6158; l’interpréteur se positionne 
alors sur le x° numéro de la liste (lu et calculé par la routine $6FD) et se 
branche en $608, c'est-à-dire au traitement de GOTO et GOSUB. 


4. Amélioration possible 


À chaque instruction de branchement rencontrée, il y a calcul de l'étiquette 
et exploration du programme ; ceci est refait chaque fois si l'on repasse sur 
le même branchement. 


On verra dans la quatrième partie que ceci peut être évité, ce qui améliore 
nettement la vitesse d'exécution. 
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IT. Instruction de test 


L'instruction 1F expression. est traitée en $697, où l'on trouve: 


697  JSR $81A Calcul de l'expression 
69A à 6AF SN Error si pas THEN ou GOTO 
6BŸ  JSR $1CC8 1 — Zsiexp. fausse (8), # si vraie 


BNE $6C8 Exécute le GOTO ou la suite du THEN: sinon, doit 
être sauté 


CLR $71 Va compter nbre delIF imbriqués 
6B7  BSR 5663 Cherche # ou $3A (voir RETURN) 

TSTA ÿ ou 3A? 

BEQ $66A Pas ELSE= ligne suivante (RTS) 

JSR $B2 $3A ; ELSE ou suite du THEN? 


CMPA 2$8F Code de ELSE 
BNE $6B7 Suite du THEN 


DEC $71 A-t-on des IF imbriqués? 
BPL $6B7 Pas encore le bon ELSE 
JSR $B2 Trouvé 
6C8 _JSR $B8 Caractère courant 
LBCS $624 Chiffre branchement (COTO) 
JMP $2B25 Traitement des instructions 


REMARQUE: Lors de la saisie d'un programme, ELSE est codé par &H8F 
précédé de &H3A, d'où l'utilisation de la routine $66B {par BSR $663). 


HI. Instruction FOR... NEXT 


1. Traitement de FOR 


Il est effectué en $1578: après avoir initialisé la variable de contrôle, la 
routine embpile successivement : 


— l'adresse du @ ou &H3A terminant l'instruction FOR (2 octets), 


— le numéro (2 octets) de la ligne courante (grâce à ces deux informa- 
tions, on pourra se repositionner après le NEXT sur la première instruc- 
tion de la boucle), 


— la valeur finale de la variable de contrôle (4 octets), 


— le signe du pas d'incrémentation (1 octet}, 
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— |a valeur du pas (4 octets) 
— le type du pas {1 octet, égal à 2 ou 4), 


— l'adresse du NEXT (2 octets) correspondant au FOR (trouvé par la 
routine $16A0D décrite ci-après), 


— l'adresse de la variable de contrôle (2 octets), 
— la valeur &H81, c'est-à-dire le code de FOR (1 octet). 


La routine positionne ensuite $612C avec le numéro de la ligne du NEXT 
($61B9 est déjà positionné sur le NEXT, par la routine $16AD) et appelle 
en $1692 la routine $1604, correspondant au traitement de NEXT sans 
incrémentation de la variable de contrôle {grâce à la mémoire $6186 initia- 
lisée ici à RHAF et non à @). 


L'exécution se poursuit donc soit après le NEXT, soit à partir de la première 
instruction de la boucle. 


REMARQUE : Cet appel de la routine du traitement de NEXT (sans incrémen- 
tation) n’est pas effectué par tous les BASIC: la boucle est alors toujours 
exécutée au moins une fois. 


2. Traitement de NEXT 


NEXT est traité en $1695, où la mémoire $6185 est initialisée à @,. 


Puis en $161A est appelée la routine $2F3, qui balaye la pile S à partir du 
sommet pour trouver le FOR correspondant au NEXT : le BASIC Microsoft 
autorisant en effet les sorties anormales de boucle par GOTO, ie bon FOR 
peut ne pas être situé au sommet de la pile. 


Le registre S est alors modifié pour pointer sur la valeur &H81 correspon- 
dant à ce FOR, ce qui dépile les boucles dont on est sorti anormalement : 
puis les valeurs empilées sont récupérées. 


La variable de contrôle est alors incrémentée (sauf si $6181 est différent 
de @) et le test de fin de boucle exécuté. 


S'il est vrai, le numéro de la ligne du FOR est récupéré (en $1622, par LDX 
15,S et STX $2C), puis l'adresse de la première instruction de la boucle 
{par LDX 17,5 et STX $B9); il y a enfin branchement en $2AED, c'est-à- 
dire à la boucle d'exécution du programme ; l'instruction exécutée est donc 
la première après le FOR. 


Si le test est faux, les 19 octets empilés par le FOR sont dépilés (en $166E) 
et il y a encore branchement en $2AED ; l'exécution se poursuit donc après 
le NEXT. 
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3. La routine $16AD 


H s’agit d'une deuxième routine d'exploration du programme (la première 
étant $66B ou $66E); son point d'entrée est en fait soit en $16AC (56179 
est alors initialisé par &H4F), soit en $16AD qui initialise $6179 à @. 


Le programme est ici exploré à partir du caractère courant jusqu'à trouver 
un octet contenant ®, &H3A (":")}, &HB8F (ELSE) ou &HC4 (THEN). 


Selon la valeur de $6176, la routine teste si le caractère suivant est FOR 
(&H81}) ou WHILE (&HAF): si c'est le cas, on a deux boucles imbriquées ; 
le registre B est alors incrémenté et il y a retour au début. 


Si l'on a un NEXT (&H82) ou un WEND (&HBG), toujours selon la valeur de 
$61 79, la routine examine si c'est le bon; pour celà, B est décrémenté et il 
y a retour au début si l'on n’a pas @. 


Si c'est le cas, la routine retourne le numéro de la ligne dans $6178; le 
caractère courant est positionné sur le NEXT ou ie WEND. 


Conséquence immédiate : 


Si l'on intervient dans le programme lui-même, on ne devra jamais intro- 
duire des valeurs &H3A81, ou &H8F871, ou &RHCAAF, etc... 


4, Applications 


La routine $16AC trouve ie WEND correspondant à un WHILE. 


Il sera donc très facile de créer les routines complètes de traitement de 
WHILE et WEND: voir 3° partie. 


IV. Les instructions graphiques 


1. Le graphisme des TO7 
L'écran est divisé en 200 lignes de 40 segments de huit points: chaque 
segment est décrit par deux octets de la mémoire écran. 


Celle-ci est en effet composée de deux blocs de 8K-octets situés à la 
même adresse $40@0 : ils sont sélectionnés par la valeur du bit @ d’un port 
d'un PIA (port C du circuit 6846), lui même situé à l'adresse $E7C3. 
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— a valeur 1 sélectionne la mémoire de “forme”: chaque bit d'un octet 
représente alors un point de l'écran, qui appartient soit à la forme (bit 
égal à 1), soit au fond (bit égal à 6). 


En général, la forme est constituée par un message où un graphisme. 


Exemple : 

165 POKE SHEFCS. PÉEKS BHEVCS 5 OR 1':ACR=LH4NGA+CRSE+L#A46 
119 FÜKE ADR, 2% 7-0 MOD #0) 

affiche le point de coordonnées {CL}, C étant la colonne (9 à 319) et L la 
ligne (9 à 199). 


REMARQUE: La routine $F161 du moniteur du TO7 met à 1 le bit @ de 
$SE7C3 ($F328 pour le TO7-7@). 


— la valeur @ sélectionne la mémoire de “couleur” : chaque octet repré- 
sente alors la couleur de la forme (dans les bits 3,4,5).et du fond (bits 
@,1,2) d'un segment de 8 points. 


Exemple : 

264 FÜÛRE &SHEPES, PÉEKGCGRHEFCS 5 HNC &HFE:FUÉE ADR, LHGF 
affiche le point précédent en rouge {code 1=&B991), le fond du segment 
étant blanc (code 7—=&B111). 


REMARQUE 1 : Sur le TO7-70, les bits 6 et 7 de la mémoire couleur sélec- 
tionnent respectivement la couleur pastel pour la forme et pour le fond s'ils 
sont mis à @: ils sont toujours à 1 sur le TO7. 


REMARQUE 2 : $E7C3 contrôle aussi entre autres l'affichage en majuscules 
ou minuscules (bit 3}, et la couleur du cadre de tf'écran (bits 4,5 et 6): voir 
annexes. 


2. Line (x:,y,) —(x,, y) 


L'instruction trace une droite entre les points P: (x1,y1) (qui peut être omis) 
et Pz2 (x2,y2): le traitement est le suivant: 


34FB BSR $354B Affiche P,;: P = XetY 
LDX 56576 Abscisse de P; (colonne) 

3598 LDY $6578 Ordonnée de P; (ligne) 

3594  ]JMP $E8dC Tracé (DRAW$ du moniteur) 
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Routine $354B : elle est utilisée par les 4 instructions LINE, BOX, BOXF 
et PSET, quel que soit le mode (graphique ou caractère). 


La routine place d’abord dans les registres X et Y les coordonnées du 
dernier point affiché : elles sont remplacées par les coordonnées de P: si 
elles figurent dans l'instruction (routine $34CB); X et Y sont alors placés 
respectivement en $6572 et $6574, puis rangés dans la pile. 


Les coordonnées de P>: sont ensuite lues (toujours par $34CB}), puis 
stockées en $6576 et $6578. 


Si l'instruction opère en mode caractère, les attributs sont traités en 
$3574, qui se termine par un JMP $E833 affichant un caractère (routine 
CHPL$ du moniteur). 


Si l'on est en mode graphique, l'attribut éventuel couleur est traité en 
$35C1: s'il ne figure pas dans l'instruction, la routine prend (en $35B7) la 
couleur forme courante contenue dans le registre moniteur $603B 
{COLOUR) ; dans les deux cas, la couleur est rangée dans le registre moni- 
teur $6038 (FORME). 


X et YŸ sont enfin dépilés, ce qui restaure les coordonnées de P1, le registre 
$6%41 (CHDRAW/) est mis à @ et il y a branchement en $E89F qui affiche 
le point graphique (routine PLOTS$ du moniteur). 


3. BOX et BOXF (x, y1) — (x, y2) 
L'instruction BOX est traitée en $3507, où la mémoire $6571 estinitialisée 
à O ou à &H46 si l'instruction est suivie de la lettre F. 


[| y a ensuite appel de la routine $354B, qui range donc entre autres x1 et y: 
dans X et ŸY; selon la valeur de $6571, il y a branchement en $351A pour 
BOX et en $352C pour BOXF: on a alors: 


351A LDX $6576 x, — X; on a YŸ=y: 


BSR $3594 Trace drte. horiz. P3—(%6, y) 
BSR 53509 Trace drte. vert. (x, y1)—P) 
LDX $6572 X] — X; on a Ÿ—y) 

BSR $3594 Trace drt. horiz. P—{x, y2) 


LDY $6574 Y1 — Ÿ; on a X=x 
352A BRA $3594 Trace drt. (x4, y2)—P et RTS 


La routine $352C (BOXF) opère en traçant la droite horizontale d'ordonnée 


Y:1, puis celle d'ordonnée y: + 1 (selon que y2 est supérieur ou inférieur à 
V1), etc, jusqu'à arriver à y2. 
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Applications : 


En s'inspirant des routines ci-dessus, on pourra facilement écrire des 
routines dessinant par exemple des losanges, ou même des cercles 
“pleins ”: voir troisième partie. 


4. PSET (x, y) 


C'est l'instruction la plus simple ; elle est traitée en $34EC, où l’on trouve : 


34EC BSR $34CB x — X,y + Y 
BSR $34F1 
RTS 


34F1  PSHS X,Ÿ 
BRA $3565 Traite couleur: affiche P 


$3565 appartient en effet à la routine $354B. 


Les autres instructions 


L'étude accomplie jusqu'ici débouche comme nous allons le voir sur un 
grand nombre d'applications. 


Il reste cependant bien d'autres instructions à étudier, que le lecteur choi- 
sira en fonction de son intérêt personnel: il s'aidera pour celà des listes des 
principales routines et adresses du BASIC, données en annexe {listes non 
exhaustives l) 


Par exemple, si l'on désire lever la protection d'un programme, on devra 
étudier le traitement de LIST (ou de PEEK ou POKE par exemple) : on cons- 
tatera alors que la protection est assurée par la routine $2D29, qui teste la 
mémoire $61A2. 


La protection sera donc levée en chargeant (par LOADM, puisque POKE 
est interdit) la mémoire $61A2 ; on devra pour celà enregistrer préalable- 
ment l'octet $61A2 sur cassette (par SAVEM ‘nom, &H61A2, &H61A2, 
O). 


77 


4 


Méthode pratique 


de décodage 
d’un interpréteur 


Nous avons déjà largement expliqué, en particulier au chapitre, la 
démarche à suivre pour décoder un interpréteur BASIC quelconque, à priori 
totalement hermétique !.…. 


Nous résumons ici cette méthode, opérant avec 5 programmes BASIC de 
cinq ou six lignes chacun et un peu de réflexion... 
1. Début d’un programme 


Le programme 1 permet de trouver l'adresse B du début d'un programme, 
la recherche devant commencer à l'adresse A du début de la RAM (ligne 
39 à modifier). 


2. Codage d’un programme 


Les octets situés à partir de B seront examinés grâce au programme 2 ; on 
déterminera ainsi le codage des instructions et de quelques mots-clés du 
BASIC. 
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3. Tables des mots-clés du BASIC 


Le programme 1 permet de trouver dans le BASIC (ligne 39 à modifier) 
l'adresse € du début de ia table des noms d'instructions, et l'adresse D du 
début de la table des noms de fonctions : on cherchera pour celà (ligne 29 à 
modifier) les (n-1) premières lettres d'un mot-clé de n caractères situé vers 
le début de la table à localiser. 


On en déduira les codes de tous les mots clés du BASIC, grâce au 
programme 3 (valeurs &H80, &HDS et 86 de la ligne 249 à modifier, ainsi 
que la ligne 229). 


4, Utilisation des tables de noms 
Le programme 4 permet de trouver dans le BASIC et dans la RAM, en prin- 
cipe entre À et B (lignes 320 et 339 à modifier} les valeurs C et D. 


S'il existe une adresse E de la RAM contenant C ou D, il suffira en principe 
de modifier les octets E et E+1 pour que le BASIC puisse utiliser un autre 
vocabulaire (à créer). 


5, Tables des adresses 


Le programme 5 permet de trouver dans le BASIC {ligne 419 à modifier) 
l'adresse F du début de la table des adresses des instructions. 


On disposera alors déjà de toutes les adresses de traitement des instruc- 
tions du BASIC, que l'on pourra donc étudier. 


6. Recherche des octets contenant l'adresse de la table 


Le programme 4 permet de trouver dans le BASIC et dans la RAM a 
valeur F (si on ne la trouve pas, on cherchera une valeur comprise entre F-d 
et F+d, avec d=—1@ par exemple) : on obtient une ou plusieurs adresses G 
(S38AC et $6294 pour le TO7). 


7. Routine de traitement des instructions 


On examinera les octets situés ‘’autour” de chaque adresse G trouvée à 
l'étape précédente. 
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S'ils contiennent pour une de ces adresses le calcul de : x—{F+d) + {C-C@) 
+2 (d pouvant être éventuellement différent de @, et CO étant le plus petit 
code d'instruction BASIC, c'est-à-dire en principe toujours &H80@), on a 
trouvé la routine de traitement des instructions : on va donc directement à 
l'étape suivante. 


Si l’on ne trouve pas le calcul précédent, le programme 4 permet de trouver 
la (ou les) valeur G précédentes dans la mémoire (ligne 319 à modifier) ; on 
obtient donc une ou plusieurs adresses H (si l'on ne trouve aucune adresse 
contenant G, on cherchera en modifiant la ligne 360 une valeur comprise 
entre G-| et G+1}. 


Pour les TO7 par exemple, on obtient la seule adresse $2B36. 


On doit forcément trouver alors “autour” d'une de ces adresses H le calcul 
de : 


y={[G] + d) + (C-CO) * 2 


ce qui correspond à la routine de traitement des instructions ([G]| désigne le 
contenu de la mémoire d'adresse G, c'est-à-dire F}. 


8. Boucle d'exécution des programmes 


Elle est en principe toujours située juste avant la routine de traitement des 
instructions (si ce n’est pas le cas, on cherchera dans le BASIC l'appel de 
cette routine, grâce au programme 1}. 


9, Les routines fondamentales 


L'étude de l'instruction d'affectation donnera enfin l'adresse des routines 
de recherche d'une variable, de traitement d'un opérande (qui traite elle 
même les fonctions) et du calcul d'une expression (où l’on trouvera le trai- 
tement des opérateurs). 


Ceci terminera le décodage de l'interpréteur et ouvrira la porte aux 
applications. 
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Troisième partie 


MODIFIER ET COMPLETER 
LE BASIC 


Nous avons vu que les adresses des principales tables du BASIC TO7 sont 
situées dans la RAM, et donc modifiables. 


De même, beaucoup de routines ($A48, $77@, etc.) ‘’ passent” par la 
RAM, par exemple en appelant un sous-programme constitué d'un simple 
RTS (situé entre $626D et $62A8): ces routines pourront donc être 
déroutées. 


On pourra donc appliquer facilement, bien sûr après adaptation, les modifi- 
cations que nous allons envisager à tous les micro-ordinateurs dont l'inter- 
préteur remplit les mêmes conditions, ce qui est le cas le plus fréquent; 
signalons d’ailleurs pour ceux dont le BASIC est entièrement figé en ROM 
que nous verrons dans la quatrième partie comment intervenir tout de 
même sur le fonctionnement de l'interpréteur. 


Après avoir présenté tout d'abord une ‘récréation ‘” consistant à remplacer 
le BASIC d'origine par un BASIC entièrement francisé, nous décrivons la 
réalisation de deux compléments classiques et utiles n’existant pas sur les 
T0O7: conversions radiants-degrés et boucle WHILE-WEND. 
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Nous donnons ensuite une méthode générale permettant de créer de 
nouvelles instructions, que l'on pourra utiliser exactement comme les 
instructions initiales. 


Nous appliquons tout d'abord ceci pour créer les deux instructions INC et 
SWAP d'incrémentation rapide et de permutation de variables. 


Nous décrivons ensuite la réalisation de deux idées originales, du moins 
pour les TO7, c'est-à-dire la création de sous-programmes à variables 
locales (ce qui supprime un des plus graves défauts du langage BASIC 
classique), et surtout l'utilisation de “ SPRITES"® {objets programmables 
mobiles), qui comblera le principal manque du BASIC TO7 en matière de 
graphismes. 


Signalons enfin que notre but ici n’est pas de donner toutes les modifica- 
tions possibles, ou de recréer par exemple le BASIC disque ! les modifica- 
tions présentées nous ont semblée à la fois les plus utiles et les plus 
pédagogiques”; il appartiendra au lecteur d'en imaginer et d'en réaliser 
d'autres, chose parfaitement possible à partir du moment où l'on connaît 
bien son interpréteur….. 
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L 


Créer et utiliser 
un BASIC français 


On a vu qu'il suffit de modifier le contenu des 6 octets situés en $6291 et 
$6296 pour pouvoir utiliser respectivement des noms d'instructions et de 
fonctions différents de ceux d'origine. 


On peut bien sûr en profiter pour créer un vocabulaire français simplifié, qui 
facilitera beaucoup l'apprentissage de la programmation, par exemple à de 
jeunes enfants : EFFACE ou DEMANDE seront compris et mémorisés plus 
facilement que CLS ou INPUT, et DEFDBL ou HEX$ ne sont sans doute pas 
indispensables pour un débutant! 


| Création du nouveau vocabulaire 


Nous proposons le programme suivant, créant un sous-ensemble français 
déjà très complet des instructions et fonctions BASIC les plus courantes. 
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14 REN BASIC francais 
24 CLEAR, LH7Daÿg 


25 

se ".., .Fable des inetructions,,.... 
4 Cü=tH80 : C1=8HDS : ADR=LHPD28:60 SUE 244 
45 

ca (2 MR .Table des fonctions... .... 


4 cé H50 L 1 S=RHAE : AORSELHPF 68 : GO QUE 208 
°6 FÜKE ADF,6 


95 

194 ‘’Initialisationsi voir Plus loin: 
156 EHDC 

13° ” 

LD ossi «Creation d'une table..,..., 


216 FOR HUM=CD Ti C1 

224 READ À 

2:39 FOR Kel TO LENS HS 2-1 

244 CÜODESASC:E MIDSE AS, K 2 

#56 FÜKE ADR , CODE : HORSHCR + 1: MEET 


496 ‘Derniere lettre ou mots i1nuitilise 

318 CODEZASCE RIGHTS AS, 1 14H86: Kai 

SCA IF VALEASSEA THEN KaVALE AE 2: CODEZLHFE : HUM=ENHLMI4K 1 
338 FOR Lel TO K 

349 FÜKE HACK. CODE : ADR=HDR +1 : HET 

266 WNEXT HUM:RETURH 


9 ‘Vocabulaire... 

614 DATA FIH.REPETE, ENCORE. DONNEES, TABLEAU, CHERCHE . FAIS 
«#4: DEMARRE., CSI M", RESTAURE, REVIENS, REMARQUE, ‘ , ARRETE. SI 
HO, 6, SELON, 4 

629 CATA ENLEVE, CURSEUR. ÉFFACE, 1. DESSIHE. 2, EKECLTE., SOMH 
E : COULEUR, TRRIT,BÜITE,%, CARHIS. ECRIS, COHTIHUE,LISTE,RES 
ERVE, 2, HETTOIE. COPIE, CHARGE. 3. REGARDE. STYLO, JOUE 

634 DATA CÜLOHMES, JUSQUAR, FAIRE. 7: ALORS, 1, FHRitim #2 

ET. OU.S,:=.< 

644 DATA SIGNE, 1.HBS, LIBRE, HACINE.6, LOMGUELIR, 1, "AL, ASC, 
CHRARCTS, L EMTIER,S, MAHETTE , BCUTON, 1, GAUCHES, DROITESR, EXT 
FAITS, 2, HASARD. CLAVYIERS, DEMANDE. 1, POINT, ECRAH, 2 


Nous donnons, ci-après, un petit programme donnant la table de traduc- 
tion; les principales instructions sont (un terme placé entre crochets est 
facultatif) : 
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— REPETE variable — X JUSQU'A Y [PAR 2Z] 


ENCORE [variable] (FOR..TO...STEP: NEXT) 
— $l expression ALORS..SINON...(IF...THEN...ELSE...) 
VA FAIRE numéro 


REVIENS (GOSUB:RETURN) 
— VA JUSQUA numéro (GOTO) 


REMARQUE 1 : Les chiffres dans ies DATA représentent le nombre de mots 
consécutifs que l'on supprime ; ils permettent d'obtenir les codes corrects 
pour nos mots-clés. 


REMARQUE 2 : Il est bien sûr possible de compléter te vocabulaire donné ici, 
ou d'utiliser des mots différents ; il suffira pour celà de modifier les DATA. 


|| faudra toutefois alors prendre garde à ne jamais réemployer comme 
premières lettres d'un mot un mot déjà défini, de code inférieur. 


Par exemple, si l'on emploie LIS pour traduire READ, le mot LISTE (LIST) 
sera compris comme LIS TE (READ TE), d'où une erreur. 


Ceci explique aussi que l'on ajoute dans la table un espace après SI (à 
cause de SINON), qu'il sera donc obligatoire de toujours écrire. 


Il, Initialisation-utilisation 


1. Sous-programmes d’initialisation 


Pour rendre notre vocabulaire opérationnel, il suffit de changer les adresses 
des tables, ce qui sera fait automatiquement par la routine suivante: 
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INITFR CC,7D28 LDD # $7D28 


FD,6292 STD $6292 Table des instruct. 
CC, 7F99 LDD # $7F00 

FD,6297 STD $6297 Table des fonctions 
39 RTS 


Un simple EXEC INITFR rendra donc votre vocabulaire opérationnel. 


RS 


On peut aussi souhaiter revenir à un moment donné au vocabulaire 
normal: ceci sera fait par la routine suivante: 


INITANG _ CC,ÿg92 LDD # $992 
FD,6292 STD $6292 
CC#1CF LDD # $1CF 
FD,6297 STD $6297 
39 RTS 


Pour implanter ces deux routines {respectivement en $7D91 et $7D11, où 
l'on a réservé 31 octets), on reprendra le programme BASIC précédent, 
dans lequel on ajoutera (voir 1°" partie): 


IAE “uuss:. Ps d'initlialisaitiôns siss ss 

119 FÜR KsEHPOB1 TO LHFDiD 

124 REHD HS:POKE K, YALC "LH" 4+HS$ 2: NEXT 

29% * 

249 ‘Initialisations.., 

91H DATA CC, FL, 20,FL62, 200, FF 8 FD 6S:r,:39,12,12,12 
126 DATA CC,0,92,FD,62,:2, CC i, CF, FL.682, 7:39 


REMARQUE: Les pointeurs $6202 et $6297 peuvent bien sûr aussi être 
initialisés par des POKE. 


2, Utilisation 


Après avoir fait exécuter le programme BASIC précédent complété par les 
instructions ci-dessus, on enregistrera sur cassette les octets de $7D01 à 
$S/FFF:; on fera pour celà, une fois pour toutes: 


SAVEM FRANÇAIS”, &H7D8#1, &H7FFF, ÿ 
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Lorsqu'on voudra travailler en français, il suffira donc de lire la cassette 
(6 secondes de lecture seulement) par: 


LOADM “FRANÇAIS ”’ 


on fera ensuite, par exemple en mode direct: 
CLEAR, &H7D68: EXEC &H7D81 


on disposera alors de tous les mots-clés français pour écrire son propre 
programme. 


On peut noter qu'un programme écrit normalement sera traduit automati- 
quement en français par ce procédé, lorsqu'on demandera LISTE! 


De même, un programme écrit en BASIC français sera traduit automati- 
quement en BASIC normal par EXECUTE &H7D11:LIST. 


A titre d'exemple, après avoir fait exécuter le programme BASIC précédent 
et fait EXEC &H7D@1, vous aurez la surprise de voir ce programme listé 
par la commande LISTE sous la forme suivante : 


14 REMARQUE BASIC francais 

26 FESERVE, LHPbLO D 

hu 

C{ . Table des instructions... .... 

46 CÉSLHED Cis8HDS : ADR=LH}D20 : VH FAIRE 266 


ta CARNLS ACR, ; 


164 ‘ .…5.P. d'initialisation......4 

11h REPETE K=tHP?D0G1 JUSGUA &H7b1iD 

124 CHERCHE AS: GARHIS K, VALC MENT +R 5: EHMCORE 
154 FIN 


25 (5 RE Creation d'une table....... 
14 ÉÉRCIÉ HUM=CY JUSQUA C1 

4 CHERCHE 4% 

34 REPETE K=i JUSQUA LONSUEURC AS 21 
24tt CODEZASES EXTRAITS HS, K 02 

SA GARHIS ADR, CODE : ADR=HDR + 1 : ENCORE 


308 ‘Derniere lettre ou mots inutilises 
316 CODESHSCE DRUITESS HS, 1) 2+LH84: K=l 
220 SI  VALCASAIETE ALURS K=VALE A6 à: CÜDEZSHFF : HUMEHUM+K- 


tele ss: 
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HI. Table de traduction 


Elle est obtenue par un petit programme BASIC, qui liste les mots français 


et anglais correspondants : 
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FIH 
ENCORE 
THBLEAL 
FHIS 
DEMARRE 
RESTAURE 
FEMARQUIE 
ARRETE 
SELON 
CURSEUR: 
DESSINHE 
SÛNME 
TRAIT 
CSARNIS 
CONTINUE 
FESERVE 
COPIE 
FELARDE 
JOUE 

AUS QU 
MLCIRS 

+ 

* 

QU) 

SIGNE 
LIBRE 
LONGUEUR: 
HSL 
ENTIER 
BOUTON 
DROITÉES 
HASARC: 
DEMANDE 
ECRHH 


: EHD 
: HET 
: Lit 
:LET 
: RUM 
: RÉSTORE 
: REM 
:STOF 

: 
:LOCATE 
: PEET 

: EEEF 
‘LIHE 


: IHPUT 
: SCFEEN 


REPETE 
C'ONHEES 
CHERCHE 
“4 

SI 
MEVIENS 


S INÜNM 
EHLEYE 
EFFACE 
EXECUTE 
COULEUR 
BÜIITE 
ECRIS 
LISTE 
HETTOIE 
CHARGE 
ST'TLO 
CCLONMNES 
FAIFE 
PHP: 

ET 

Ca 

ABS 
RACINE 
HAL 
CHRHCTS 
MANETTE 
GAUCHE S 
EXTRAITS 
CLAVIER 
POIHT 


‘FÛR 

: DATA 

: FEADC 
:G0 

‘IF 

: FETURH 


:ELSE 
: DELETE 
CLS 


HEL 


: COLOR 
BOX 
:PRIHT 
LIST 
NEW 
 LORC 
: PEN 
: TRE 
: SUB 
:STEF 


: HHD 
À 

: AES 
SUR 

: HALL 
:CHRS 
: STICK 
: LEFTS 
BABA: 
: IHKEYTS 
: POINT 
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Créer de nouvelles 
fonctions 


Nous présentons ici une méthode générale permettant de créer à partir du 
BASIC de nouvelles fonctions, que l’on pourra ensuite utiliser exactement 
comme les fonctions disponibles au départ. 


1. Principe de la méthode 


On pourrait appliquer ici la méthode que nous décrirons en détail au 
chapitre 4 et qui nous servira à définir de nouvelles instructions. 


Nous avons vu en effet, lors de l'étude du traitement des fonctions, qu'un 
code supérieur à &HFFA6G provoque le branchement à l'adresse située en 
&6213 (normalement $7F3, d'où un “SN Error”); si l'on ajoute donc de 
nouveaux noms de fonctions à la fin de la table des mots-clés, il suffit de 
placer la valeur a en $6213 pour que l'interpréteur se déroute en a en 
rencontrant une nouvelle fonction; le traitement serait donc écrit en a. 


Cette méthode est la meilleure lorsqu'on doit créer un nombre relativement 
grand (par exemple 5 ou 6) de fonctions nouvelles. 
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Dans le cas contraire, il est beaucoup plus simple d'utiliser le fait que le 
BASIC décode comme on l'a vu le mot-clé FN (correspondant normale- 
ment à des ‘fonctions utilisateurs"), traité en $623C (le ‘’traitement” 
consistant en un JMP $7F3 qui provoque un “SN Error”). 


On placera donc simplement en $623C une instruction JMP a qui provo- 
quera le déroutement de l'interpréteur à chaque rencontre d'un nom de 
fonction commencant par FN: les traitements correspondants seront bien 
entendu implantés en a. 


REMARQUE : Nous verrons au chapitre IV que l'instruction placée en $623C 
n'est utilisée que par FN; nous ne perturberons donc pas le fonctionnement 
de l'interpréteur en la modifiant. 


Il. Exemples d’applications 


1. Conversions radiants-degrés 


Le principe décrit ci-dessus va être appliqué à la création des deux fonc- 
tions suivantes, absentes du BASIC TO7: 


—  EFNR(X): renvoie la valeur réelle exprimée en radiants correspondant à 
la valeur de l'argument X exprimé en degrés: 


—  FND({X): fonction inverse de la précédente : elle convertit la valeur de 
l'argument X exprimé en radiants en une valeur exprimée en degrés. 


Il est évident que les routines données ci-après utilisent au maximum les 
routines de l'interpréteur, par exemple pour vérifier la syntaxe et calculer 
l'argument ($7DE), puis le convertir en réel ($252B—CSNG) et l'envoyer 
dans le second accumulateur flottant situé en $6163 ($1C81). 


Nous utilisons aussi bien sûr, les routines de traitement des opérateurs * et 
/, situées respectivement en $25B6 et $929; rappelons que notre étude de 
l'interpréteur nous a montré que ces routines doivent être appelées pour 
des arguments réels avec le premier opérande placé dans le second 
accumulateur flottant et le second opérande dans l'accumulateur flottant 
normal” situé en $6155 (on peut d’ailleurs remarquer qu'il faut faire 
finverse pour des arguments entiers: voir $87A). 
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Le traitement des deux fonctions est donc le suivant: 


5K4û SD E2 JSR se R ou D 

Bd? 34 ÿ2 PSHS À 

BA44 ab B2 JSR SB2 Pointe sur ”(” 
EAd4E BD O7DE JSR SOLE Argument + AC flottant 
5h49 BC: 252 JASR $252bB Conversion en réel 
EHdC BD 1C81 JSR $sicei AC flottant => $6163 
BR4F CC 7B8E LDC #$/BSE Début x/189 

BAS? DL 55 ETC $55 

BA54 F SD CLR sc Signe + 

BASÉ CE FA3S LDD RSFAGS Fin 1/18Q 

BASS DC SF STD Se 

BASE 35 G2 PULS R ou D? 

BASD 81 52 CPR  #$52 Code de “R‘“ 
BASF 26 43 BNE SBA64 D? 

BA6 1 tE 25B6 JMF $S25B6 Traite « et RTS 
BAÉ4 81 44 CMPA #$d4d Code de “D” 
BA6E = As BNE SERGE NiR,niD 

BA6ER TE 9924 JP 992 Traite / et RATS 
BASE TE 87F:3 JP SAFFS SN Error 


REMARQUE : Les 2° et 3° colonnes représentent le code objet, à implanter 
en mémoire; il a été bien sûr facilement établi ‘à la main”, à partir des 
tableaux que l'on trouvera en annexe, donnant les codes des instructions et 
les parties adresses de certaines opérations particulières (adressages rela- 
tifs ou indexés, PSHS, TFR, etc...). 


2. D’autres idées 


Toujours comme fonctions de calcul, on pourrait écrire facilement une 
fonction ‘Arc tangente” (formule donnée dans le manuel de référence 
BASIC), ou une fonction “affine” rapide : FNA (a,b,X) calculerait automati- 
quement aX+b, environ deux fois plus rapidement que par a *# X + b: voir 
pour celà INC, au chapitre V; SCOR étant très lent, on pourrait encore créer 
une fonction ‘racine carrée entière”, par exemple à partir de l'algorithme 
du chapitre 3. 


On pourrait aussi créer une fonction (souvent appelée DEEK) retournant la 
valeur contenue dans les deux octets situés à l'adresse spécifiée par l'argu- 
ment, ou retournant la plus grande (ou la plus petite) valeur d'un couple 
d'arguments, ou encore recherchant l'occurrence d'une valeur dans un 
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tableau numérique ou alphanumérique: FNO (Nom de tableau, valeur) 
retournerait le rang où se situe la valeur, ou —1 par exemple. 


Toutes ces fonctions peuvent être bien entendu écrites en BASIC, par 
exemple par 256 x PEEK(I) + PEEK(1+1) pour DEEK: les écrire une fois 
pour toutes en langage machine et les obtenir par FNx est évidemment 
ensuite beaucoup plus simple et beaucoup plus rapide à l'exécution! 


IH. Création des nouvelles fonctions 


On pourrait bien sûr implanter la routine précédente comme on l'a fait au 
chapitre | pour les sous-programmes d'initialisation (lignes 119 et 126): 
l'adresse d'implantation serait alors placée en $623D par deux POKE,. 


Nous préférons donner le programme suivant, qui permet de ranger à des 
adresses quelconques de la mémoire un nombre lui-même quelconque de 
routines écrites en langage machine, et celà comme nous allons le voir de 
la manière la plus rapide, la plus souple et la plus “lisible” possible. 


Ce programme sera utilisé pour toutes les applications à suivre (nous le 
complèêterons au chapitre IV pour créer de nouveaux mots-clés), en respec- 
tant à chaque fois la procédure suivante: 


— chaque routine sera écrite en DATA, à partir de la ligne 2990: les 
valeurs hexadécimales du code objet, toujours écrites sans &H pour 
une commodité maximale, seront précédées de l'adresse d'implanta- 
tion de la routine, qui devra elle être écrite avec RH (évitant ainsi toute 
confusion ou oubli): 


— _ pour faciliter la relecture et les corrections éventuelles, les codes hexa- 
décimaux pourront être regroupés par 2 ou 3 par exemple ; on pourra 
donc traduire: 


e JMP $25B6 par 73,25B6 ou 7325B6 
e l'adresse $7F3 indifféremment par 7F3 ou @7F3 


e la valeur #$@091 (2 octets) par 691 où 441 (pas Ÿ1 bien sûr, qui 
n'occuperait qu'un octet). 


— le premier DATA de chaque routine commencera par un mot (guille- 
mets inutiles) identifiant la routine, qui précèdera donc l'adresse 
d'implantation et les codes: 


— la liste des codes de chaque routine sera terminée par une phrase 
commençant par FIN ("FIN fonctions” par exemple). 
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Exemple: Nous écrirons donc ici: 


2989 DATA Fonctions, &HBA49,9D,B2,34,2,9D,B2 
/BD,/DE,....,/E,7F3,FIN Fonctions 


(l'adresse BA4@ sera bien entendu remplacée par 7A4% si l’on ne dispose 
pas de l'extension mémoire, ou par $DA4@ pour le TO7-70). 


— la dernière routine sera suivie d'un DATA contenant une phrase 
commencant par FIN (FIN des routines”, par exemple}, qui arrêtera le 
programme ; 


— enfin, ces nouvelles routines doivent toujours être activées par un sous- 
programme d'initialisation, dont le DATA sera placé en premier (en 
1790) et écrit exactement de la même manière. 


Dans le cas de nos fonctions FNXx, le sous-programme est simplement: 


INITE CC,BA4# LDD #$adr.  Débutroutine 
FD,623D STD $623D 
39 RTS 


Le programme complet est donc le suivant: 


1548 EM Creation de routines 

1819 CLEHR. LHBAGA "son FHYGTOrTS ou CABACTOF-78 
1824 CEBZZSÉ#XPEERKC LH6 12H PEEKL HET ZE +2: FINSZSÉXPEERX & 
HE SAC 2+PÈERS LHÉSSAD +1 : ADRBZDEE ; 

1ysn FEMG HOMS:IF LEFTS$SCNONMS, 3 2="FIN" GOT01:364 

1844 REHD ACR ‘“hdresse d'implantation 

1459 IF HDR<ADRS OK ADCR:FIH THEH FRINT'ERPEUR D'ADREÉSSE 
…..":ENÈ 

18864 FRINHT "ROUTINE ":;: HOMS& 

144 PRINT" Debut: "5 HEXSC HD 1, 

1835 ‘ 

114 ‘Lecture et ranagment d'une routine 

1119 5=U:FDR ISHOR TO FIN 

ir RERD AS: LELENCASS:IF LEFTSAS.3S)="FIH" COÛTO izW@ 
1150 IFL<ZZ GOTOI1E6EH 

1149 Kaeñel MOD 2:%=V4lLé 'EÉHU4LEFTSE AS. 125 PÜKE I1,V:52S4+vV 
: I=ïl+i 

1158 LEl-K:AS=RICHTSE HS, Lo: GOÜTOI130 

1168 Ve VALE EH +AS 5: SESXUVPOKE TI .V:HEZAT 

1249 PRINT" Fin: "5: HESC I-1 2, 

12194 FRINT" Sommes 

1224 PRINT :ADRGEI 
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1:39 SOTO1858 “houtine suivante 

1541 

1595 ‘ 

LEUR us issus le PMIiNÉss issus: 

1614 PRINT " Implantation terminee...":PRINT" Enresistr 
er de "iMERSCDEE 5" à "oHEXSE ADRG-13;5" Char SHVENM:":END 


Dans le cas des fonctions, les DATA sont les suivants: 


1639 ‘ 
1545 Wade s se INIEIAllre ALLONS 'e v ou de 
1r A0 DATA Initialisation, &HEHG1,CC, 6h48, FD,6230, 39, FIH 


1295 “houtines 

209 CATH Fonctions. £HeB448, SD, B82,34,2,9L0.82,B0,P0E.EL. 2 
526. ED, 1081, CC; TBE. DD,595.F, 50, CC, FASS. DC, 57:55,2,91,92 
s Léo Es 2566, 81: d44,26,3, TE, 926,/7E,7F3:FIH 

2960 CATA FIH des routines 


REMARQUE: On constatera que le programme vérifie systématiquement 
toutes les adresses, évitant ainsi tout recouvrement ou écriture dans une 
zone protégée ou inexistante (celà grâce aux adresses contenues en $612A 
et $65F5: voir annexes) On notera aussi que le programme calcule une 
somme de contrôle permettant de vérifier les DATA : on doit avoir ici 4888 
pour la routine ” Fonctions”, 


IV. Utilisation du programme de création 


1. Quelques conseils 


À chaque utilisation du programme précédent pour créer une routine quel- 
conque, il faudra toujours sauver le programme avec ses DATA avant toute 
exécution du sous-programme d'initialisation; une erreur dans celui-ci ou 
dans la routine “planterait"” en effet la machine, obligeant dans la plupart 
des cas à couper le courant... 


94 


On pourra alors écrire en début de programme {lignes 1 à 999) les instruc- 
tions BASIC permettant de tester la routine, après avoir fait exécuter le 
sous-programme d'initialisation (par EXEC &HBAQ1 ici). 


Rappelons que pour la mise au point d'une nouvelle routine, il est bien sûr 
possible d'utiliser le désassembleur pour vérifier que les codes sont 
corrects ; On pourra aussi par exemple intercaler au milieu un ou plusieurs 
appels de la routine $1ED1, qui écrit (en décimal) la valeur (convertible en 
hexadécimal par HEX$), placée dans l'accumulateur D du 6899 (et place la 
valeur 3 dans $6105): on pourra ainsi facilement vérifier le contenu des 
registres (par TFR registre, D) ou de certaines mémoires. 


Rappelons aussi qu'un JMP $2AED provoquera le retour au BASIC, 
permettant par exemple de vérifier la pile {adresse du sommet: PEEK 
(&H618C) » 256 + PEEK (&H618D)). 


On peut aussi utiliser l'instruction SWI pour créer des arrêts sur adresse: 
voir 1°" partie. 


Enfin, on fera bien entendu ré-exécuter le programme de création après 
toute modification dans les DATA, afin de modifier effectivement la routine 
en mémoire ! 


2. Utilisation des nouvelles routines 


v 


Le programme de création signale à la fin de l'exécution la zone de 
mémoire à enregistrer en binaire, ce qu'on fera une fois pour toutes par: 


SAVEM ‘’Nom'’’&HAdresse 1, &HAdresse 2,8 


Dans notre cas, Adresse 1 ($BA91 ici) est l'adresse du sous-programme 
d'initialisation; pour pouvoir utiliser les nouvelles fonctions dans un 
programme BASIC, il suffit donc de faire lire le programme binaire Nom” 
par : LOADM Nom” (ce qui ne demande que quelques secondes), puis de 
faire exécuter l'instruction: 


CLEAR &HAdresse 1 — 1: EXEC &HAdresse 1 


Ceci activera les nouvelles fonctions. 
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3. Exemple: FNR et FND 


Avec notre routine, on pourra écrire par exemple : 


1H Sel: PRINT &itdegres 2" FRE Ki" padiante" 
118 RSÉS: PRINT " VÉRIF, "ii Lo gres ©": PH PHARE 4 0 0 Med 


M 
1:45 Etil 


On obtient bien sûr: 


Lot deresz = 3. 14153 radtants 
WERIF.: SO deures = FPS deûres 


1h 


REMARQUE: Les calculs sont en fait effectués avec la valeur nr — 
3.1415927, exacte à mieux que 107” près. 
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Boucle WHILE... WEND 


Les deux instructions WHILE et WEND permettent de boucler sur une 
séquence d'instructions tant qu'une certaine condition, écrite après le 
WHILE, est réalisée : lorsqu'elle ne l'est plus, il y a branchement à l'instruc- 
tion qui suit le WEND. 


Ceci permet donc de réaliser des boucles différentes de celles contrôlées 
par FOR et NEXT : leur principal intérêt est de permettre une bonne structu- 
ration des programmes, cette notion étant comme on le sait fondamentaie 
en programmation ; elle facilite en effet énormément l'écriture, la mise au 
point et les modifications ultérieures d'un programme. 


Signalons d'ailleurs que la possibilité d'écrire des sous-programmes à 
variables locales, que nous verrons au chapitre VI, constitue un autre 
élément très important de la programmation structurée. 
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l. Principe de création d’une boucle WHILE 


La routine correspondante, dont le principe est proche de celui d’une 
boucle FOR, utilise la routine $16AC qui trouve dans tous les cas le WEND 
associé au WHILE (voir la 2° partie). 


Lors du traitement de WHILE, on embpile donc successivement : 
— l'adresse du caractère qui suit le WHILE, 


— le numéro de la ligne du WHILE (ces deux informations permettant de 
se repositionner au retour du WEND), 


— l'adresse du caractère qui suit le WEND associé, 


— la valeur &RHAPF, c'est-à-dire le code de WHILE (ceci rend notre routine 
compatible avec la routine $2F3, appelée par FOR et GOSUB). 


On appelle ensuite la routine de traitement du WEND, qui teste la condi- 
tion; fa boucle ne sera donc exécutée que si celle-ci est vraie. 


Le traitement de WEND consiste essentiellement à tester la condition de 
contrôle de la boucle: 


— si elle est vraie, on se repositionne au début de la boucle et on fait un 
JMP S$2AED qui provoque l'exécution des instructions correspondan- 
tes (voir 2° partie), 


— Si elle est fausse, on reste positionné après le WEND, on dépile les 
7 octets empilés par le WHILE et on fait encore JMP $2AED. 


Enfin, les deux routines correspondant à WHILE et WEND seront activées 
par un sous-programme d'initialisation modifiant $6233 (WHILE) et $6236 
(WEND), contenant initialement une instruction JMP $7F3 (SN Error) 
correspondant au “traitement” de WHILE et WEND. 


Signalons que nos routines permettent certaines libertés” d'une boucle 
FOR, c'est-à-dire les boucles imbriquées et l'écriture éventuelle du WEND 
après un THEN ou uün ELSE. 


Toutefois, en cas de boucies imbriquées, les sorties anormales (qui ne 
passent pas par le WEND, à cause d'un IF ou d'un GOTO) sont volontaire- 
ment interdites (on aura un WE Error), ceci d'une part parce que la condi- 
tion de sortie correspondante peut être en principe ajoutée à la condition 
de contrôle et d'autre part parce que ceci na pas de raison d'être dans des 
programmes structurés | 
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Pour la même raison, nous n'avons pas prévu ici de dépilement en cas de 
sortie anormale {alors que c’est le cas pour FOR, comme on l’a vu dans la 
seconde partie}, qui reste toutefois autorisée pour une boucle simple. 


REMARQUE: Si l’on voulait réaliser une boucle REPEAT.. UNTIL condition 
(répéter. jusqu'à ce que condition; cette boucle est toujours décrite au 
moins une fois), le principe à utiliser serait pratiquement le même que celui 
donné ci-dessus. 


Il. Les routines-initialisation 


Les routines correspondant à WHILE et WEND (enchaînées, comme on va 
le voir} seront bien sûr implantées par le programme de création précédent. 


Le sous-programme d'initialisation est ici le suivant: 


INITW CC,BA7# LDD # $adr. Adresse routine 
FD,6234 STD $6234 Adr. trait. WHILE 
C3,81E ADDD # SAPE 39 octets pour WHILE 
FD,6237 STD $6237 Adr. trait. WEND 
39 RTS 


Si l'on désire donc par exemple implanter simultanément les fonctions 
précédentes (en $BA49 toujours) et le traitement de WHILE en $BA76, on 
enlêvera ”,39,FIN'" de 1709 et on ajoutera: 


La routine proprement dite sera ensuite écrite en 2109 et 2116, sous la 
forme : 


2199 DATA WHILE-WEND,&HBA7S,codes,FIN 


Le listing est le suivant: 


BA7Y 32. Ê LEAHS 2,5 réinitialise pile 

BH72 CE a LDE #Slid 2 x 4 octets à empiler 
EH7 4 BD 433€ JSP $4336 Débordement ? 

BAT? LE ES LC) SES Caract. après WHILE 
EA79 SE SC LC PAR N° ligne du WHILE 
EHTE 34 5€ PSHS #4» Empilement 

BR?L BE 16AC JSR $16AC Trouve le bon WEND 
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BA8G JE F8 LE H7E N° ligne du WEND 
BAS2 af en STX FAR 

EASd SD EZ JSR $Bz Caract. après WEND 
BASE DE [R3=) LCL) SES Adresse caractère 
BASS 56 ÀF LOA # SF Code de WHILE 
ESA 34 42 FSHS AU Empilement 

BASE SD 5 ESk BASE WEND 

HASE 32 62 LEAS 2,5 Enlève adr. retour 
BASA AE 6 À LOU 1.5 Adr.car. après WEND - X 
BH9Z JC ES CMPX  $B9 Est-ce le même ? 
ÉHSd ra G5 BEG SBRASE Oui 

FRASÉ Dé 13 LDEB #$19 Non +erreur 

ASS TE 4353 JP 89:53 WE Error 

EASE RE 65 LD 5,S Caract. après WHILE 
BSD SF BS ST SES On se repositionne 
BASF BD 681 JSR $981A Calcul condition 
BAHZ ÉD iCCS JSR SiCCS Faux <> Z=1{2-@sinon) 
EAAS à A BEC SBARE Faux + terminé 
AA? AE 63 LDX 3, S N° ligne du WHILE 
ERA9 aF 20 ST 20 

BAAE TE 2HED JP S2AEL Exécution boucle 
BAAE AE É 1 LOX 1,5 Caract. après WEND 
BABG 32 67 LEAS 7,5 Dépilement 

BAB2 TE 1669 MP 1669 STX $B9,JMP $2AED 


REMARQUE : On doit obtenir ici 7613 comme somme de contrôle. 


HI. Exemple d'utilisation 


On fera bien sûr exécuter le programme de création et on enregjistrera le 
résultat une fois pour toutes sur cassette (par SAVEM Nom”, &HBA@1;, 
&HBAB4,9). 


Lorsqu'on voudra utiliser une boucle WHILE, il suffira donc de faire lire 
notre routine {par LOADM Nom}. 


On pourra alors par exemple écrire le programme suivant: 
14 CLEA, SHÉHGG : EXECEHBAG 1 

D ‘Lalceul de racine carrées entiers 

1 


£ 
34 “519915 
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dt Mai: UHILE RER<X : Baht: MEHL 

4 ‘On a atteint ou deFassg la racine 
St WHILE XX: R=KR— 1 : EME 

66 PRINT" Racine de";#iterihk 


On obtient bien sûr 126, ce programme ayant pour seule ambition de 
montrer la logique (et la clarté !} d'une boucle WHILE. 


On notera quand même que cet algorithme élémentaire traduit en langage 
machine calculerait des racines entières beaucoup plus rapidement que 
SQR ; on pourrait donc l'utiliser par exemple pour créer une instruction de 
tracé de cercle. 
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Création et utilisation 
de nouvelles 
instructions 


Nous nous intéressons ici à la création d'instructions nouvelles, non 
décodées par le BASIC comme l'étaient FN, WHILE et WEND. 


Les routines correspondantes seront étudiées dans les chapitres suivants. 


I. Principe de la méthode 


La méthode la plus simple consiste à ajouter les nouveaux mots à la fin de 
la table des fonctions (qui contient déjà les instructions MID$, INPUT et 
SCREEN) : celle-ci sera donc recopiée dans la RAM, et les nouveaux mots 
ajoutés ensuite. 


Ces mots écrits dans un programme seront alors automatiquement codés 
par &HFFA7, FFAB, etc...;: lors de l'exécution du programme, la routine 
$2B25 de traitement des instructions branchera donc en $6273 (voir 
2° partie}, où l'on écrira une instruction JMP adresse. 


102 


En ‘adresse, 1 suffira finalement d'écrire une routine de branchement 
vers les traitements des nouvelles instructions: on utilisera pour celà une 
table des nouvelles adresses. 


REMARQUE 1: 11 faut être sûr de ne pas modifier le fonctionnement du 
BASIC en changeant les octets $6273 à $627E. 

On reprend donc le programme 1 de la 2° partie, en modifiant la ligne 40 
pour obtenir toutes les valeurs comprises entre &H6273 et &H6275 (...IF 
PEEK({I+1) > &H72 AND PEEK(I+1) <&H76 THEN...). 

On obtient seulement $2B62, contenant JMP $6273: $6273 contient lui- 
même RTS, suivi donc de deux octets inemployés. Nous pouvons donc 
modifier ces 3 octets. 


REMARQUE 2: Le même programme cherchant toutes les valeurs de 
& H626D à H62A8 {points de contrôle de diverses routines : voir annexes) 
permet de trouver de même toutes les utilisations des octets correspon- 
dants {contenant 20 fois les trois valeurs &H39 (RTS), 2E et 74). 

On constate que les seules instructions utilisant une de ces adresses sont 
toutes de la forme : 

JSR (ou JMP}) $626D+3x, avec x=9,1….., 19 

Elles pointent donc toutes sur un RTS, les deux octets suivants étant inutili- 
sés ; de plus, chacune de ces adresses n'est utilisée qu’en un seul endroit 
de l'interpréteur. 

Ceci nous autorisera à mettre en œuvre les modifications de la quatrième 
partie de notre ouvrage. 

Signalons enfin que le même contrôle appliqué aux octets de $6233 à 
623E (WHILE, WEND, DEFFN (voir DEF, en $1801) et FN) aboutit à la 
même conclusion, ce qui justifie à postériori les interventions des chapi- 
tres 1! et HI. 


Il. Mise en œuvre de la méthode 


La méthode que nous venons de décrire sera bien sûr mise en œuvre grâce 
au programme de création, complété comme nous allons l'indiquer: la 
nouvelle table des noms de fonctions et la table des adresses des nouvelles 
instructions seront alors créées automatiquement, et celà encore une fois 
de la manière la plus souple possible. 


103 


1. Branchement au traitement des nouvelles instructions 


Lors de l'exécution d'un programme utilisant les nouvelles instructions, le 
branchement aux différentes routines s'effectue grâce à un petit sous- 
programme, placé juste après celui d'initialisation; ce sous-programme 
utilise une table des adresses des nouvelles instructions (placée en ADRA), 
exactement comme le fait la routine $2B25 (d'où l'utilisation de $2B38: 
voir 2° partie). 


Cette table des nouvelles adresses sera suivie elle-même de la nouvelle 
table des noms de fonctions, placée par exemple ici 24 octets plus loin, ce 
qui permet la création de 12 instructions nouvelles. 


Les sous-programme de branchement est donc le suivant: 


BRAN 8E,BF91 LDX # ADRA Adr. table des adr. 
80,A7 SUBA # $A7 x mot={(x-1) — A 
2A,3 BPL 83 Nouveau mot 
7E,7F3 JMP $7F3 SN Error 

NOUV 73,2B38 JMP $2B38 Branche au trait. 


REMARQUE: La table des adresses est placée automatiquement (voir Il] ci- 
après) en $7F@1 pour le TO7 de base, en $BF91 pour le TO7 avec exten- 
sion mémoire et en $DF@1 pour le TO07-7@. 


Selon le cas, on devra donc remplacer ADRA par ces valeurs. 


2. Activation des nouvelles instructions 


Le sous-programme d'initialisation doit modifier l'adresse contenue en 
$6297 (début de la table des noms de fonctions}, la valeur contenue en 
$6296 (nombre de mots, placé par le programme de création en ADRA-1), 
et placer une instruction JMP BRAN en $6273, le sous-programme BRAN 
précédent étant implanté juste après. 


On écrira donc: 


INITNV CC,BF19 LDD # ADRN Adr. table des noms 
FD,6297 STD $6297 
B6,BF 08 LDA ADRA-1 Nombre de mots 
B7,6296 SFA 56296 
86,7E LDA # $7E Code de |MP étendu 
B7,6273 STA $6273 
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1F,5g TFR PC,D Adresse E + D 


E£ C3,997 ADDD # $9997 (Adresse RTS)+1 — D 
FD,6274 STD $6274 
39 RTS 


REMARQUE 1 : On observera l'utilisation du compteur de programme PC du 
6899, permettant de déplacer les sous-programmes d'initialisation et de 
branchement sans avoir à les modifier. 


REMARQUE 2 : Pour la même raison que précédemment, on écrira obligatoi- 
rement les adresses $7F19 et $7F00@ pour le TO7 de base, et $DF19 et 
$DF6® pour le TO7-79 (au lieu de $BF19 et $BFGO). 


3. Implantation en mémoire 


Finalement, si l'on désire implanter simultanément les nouvelles fonctions, 
les boucles WHILE et certaines nouvelles instructions, dont la table des 
adresses sera placée en cas d'extension mémoire en $BF@@ (voir ci-après), 
on enlèvera ”,39,FIN" de la ligne 1710 et l'on ajoutera: 

Lé2h DATA LC BF19, FD, 62047, 6e, EF EP, ECM Be, PE Bi gr 
IF LS Or. FD és ra, 39 

1/24 DATA SE. ÉFHI. Si Mr, 2H FE. FPS FE EESE FIN Initial 
1£3410"S 


On peut aussi bien sûr n'implanter que les nouvelles instructions, puisqu'on 
peut déplacer le sous-programme d'initialisation sans modifications: on 
écrira alors simplement : 


1789 DATA Initialisation, &HBA#1,CC,BF19,etc. 


Il, Création des nouvelles tables 


Les mots-clés correspondants aux nouvelles instructions à créer seront 
placés en DATA, à la fin du programme {ligne 2990), chacun étant suivi de 
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l'adresse hexadécimale (précédée de &H) où se situera la routine de traite- 
ment correspondante. 


Ces adresses seront celles de branchement et elles devront bien sûr être 
les mêmes que celles écrites au début des routines proprement dites 
{adresses d'implantation). 


Toutefois, il est aussi possible de créer des instructions “non exécutables ” 
(par exemple ARG au chapitre VI): on écrira alors comme adresse $7F3 
(SN Error) ou $663 (adresse de DATA: l'instruction sera ignorée). 


La liste des nouvelles instructions sera toujours terminée par le mot FIN. 


Les instructions BASIC suivantes, à ajouter au programme de création du 
chapitre 2, génèrent automatiquement la table des nouvelles adresses, 
implantée à la dernière page de la RAM ($7F91 ou $BF@1); la table des 
noms de fonctions est implantée comme on l’a dit 24 octets plus loin. 


14 ‘..... Houvelles instructions, 
1:14 ADÉLE THE HFÉ PFAL ou ÉFAICTOP 5 ou CFOÎLETOS- TA 
1224 IF HDRSAGRSN GOTOIASA ELSE NHOCRHSHOE 
1:55 ME: =: "24 fonctions au deFart 
l4f *..... Fecorie table des noms... ,.,., 
1554 ACE=ADRA+2dS: FOR ISLHICF T0 LMHÉES 

13604 FURE AC, PERRET ACER SHC +: HET 

1:395 

1443 ‘....Utn 21outée Un MOUvEAU Bot. 

1414 MENDC AS:IF LEFTS#E AS. Se "FIH" GOTÜLSSA 
1424 FÜR I=i T0 LENS 5-1 


14:54 PFOKE ADR, HSE MIDSE A$.T 11: AD =D +1: HEST 
1444 PÜÉE ADR. ASLCRIGATSS AS, À: 3+EH88 : HCF'=HER + 1 
1454 HEFMEHNEPNME+1 "+1 mot. 

1455 

4 ‘On auoute l'adresse dans La table 

14rA RERC 

ds IF VesFINH-LHFF THEH RDE=SM : LOTOIH#SA 

1494 I=INTEUZOR D: POÉE ADÉG.TI 

1594 Isu-ITHE Se: FÜOFE HOFA+LI 

1 )4 ADF ADRE+E : GOT) HA 

1545 

SA “Tous les nouveaux ats Êrees. 

1564 FOKE HPP.64: ACRASADR EL PÜRE FIH-LHFF. HER 
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Exemple : Pour créer l'instruction INC (voir chapitre suivant}, implantée 
$BABS par exemple, il suffira d'ajouter au programme : 


2298 DATA INC, &HBAB8,liste des codes,FIN 
299 DATA INC, &HBAB8,FIN nouveaux mots 


Après exécution, un simple EXEC &HBA@1 nous permettra d'utiliser notre 
nouvelle instruction (avant l'exécution du sous-programme d'initialisation, 
notre nouveau mot ne serait pas reconnu). 
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Se 


Incrémentation et 
permutation de 
variables 


Nous allons appliquer la méthode précédente à la création des deux 
instructions relativement simples INC (incrémentation rapide) et SWAP 
(permutation), qui pourront servir de modèle pour réaliser des instructions 
similaires (par exemple un calcul rapide de fonction linéaire). 


Ces deux instructions contrôlent bien sûr la syntaxe et les types des 
variables, exactement comme les instructions “normales”. 


I. Instruction INC 


1. Syntaxe-but 


La syntaxe est la suivante: 


INC variable [, expression] 
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Cette instruction ajoute la valeur de l'expression à la variable (qui peut bien 
sûr être un élément de tableau): si l'option [, expression] est omise, 
l'incrément par défaut est 1. 


L'intérêt de cette instruction est d'être exactement 1,5 à 2,5 fois (selon le 
type de la variable et la présence ou non du deuxième argument} plus 
rapide que l'affectation normale, ce qui sera très précieux pour tous les 
programmes où la rapidité d'exécution est essentielle. 


Toute instruction d'un programme de la forme X=X+expression pourra 
donc alors être remplacée par INC X, expression. 


2. Réalisation 


La routine est donnée ci-après: on constatera bien sûr qu'elle fait encore 
une fois un large appel aux routines de l’interpréteur ($A48, 1C98, 81A, 
etc...) dont on trouvera la description en annexe. 


On remarquera aussi l'utilisation de la valeur (double où simple précision) 
@,5 située en $2380, utilisée par les routines de conversion de type pour 
les arrondis; la valeur entière 1 est trouvée de même par exemple en 
$FI9CA (LDX Æ$F9CA place donc 1 dans le bit N du registre CC, ce qui 
correspond bien en $1C98 au type 2} pour le TO7. 


La routine est la suivante: 


BHES EC HAS JSPR Sad Adr.var.-X:type-95 
BHEE JF 3F STx SF 

EABD 9D BS JS SES Expression ? 

EABF cé 11 BHE SESACEZ Calcul expression 
BAC 1 ne 2380 LDX #$2380 Emplacement de @.5 
EACd 30 CD JSF SCD Teste le type 
BALE ZA 63 EPL HEACE Réel ou dble.préc. 
EACE 8E FICA LOX# #6F SCA Contient 1{T07) 
BALE BD iCGE JSK gSiCUS .5 ou 1-AçC.flottant 
BACE C aie INC 55 .B-1{réel) 

E4DG 26 GE BFA SBAEG Calcul 

BADZ Gé 5 LD SAS Type variable 

RAD 4 ‘34 PA FSHS À Empilement 

BHLE SC CA JSF SCA A-t'on ”,"? 

BADE BD A5 1 À JSF HE Exp.-AC flottant 
EHDE 35 LE PA FLILS Type 

BAD BC 2514 JSR $2s19 Conversion exp. 
BAE A SE SF LODK SF Adr. variable 


BAE2 BC B4FC JSK S2d4FD Teste le type(num.} 
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BAES 29 [2 EVS SEAF 1 Réel{simple préc.) 


BHE? £4 GE BHS SBAEF Double préc. 

BAES AE sd LD* À Valeur var. (entière) 
BAEEB 9F 65 STX 65 (donne : 2d AC flottant) 
ERED 24 95 BRA SEAF4 Addition 

BHEF C 93 INC 5603 


BAF 1 ED 1ABF JSR SiABF Valeur var.=24 AC 
BAF 4 BD e59û JSF 25939 + 
BF 7 °E 1036 JP 1036 Résultat-variable 


REMARQUE 1: Si la variable est de type entier, l'addition est faite ici à 
l'envers (voir chapitre 1 sur les fonctions), ce qui n’a aucune importance 
puisque + est commutatif ! Si l'on voulait, par contre, utiliser un opérateur 
tel que —, /,<, etc.., il faudrait obligatoirement permuter (en $BAED) les 
deux accumulateurs entiers (86157 et $6165). 


REMARQUE 2 : La valeur FQCA (adresse contenant &H@@@1) située en $BAC9 
devra être remplacée par EA24 pour le TO7-70. 


3. Exemples 
Après implantation de la routine (voir chapitre précédent} et exécution du 


sous-programme d'initialisation (EXEC &HBA@1}, on pourra écrire par 
exemple : 

IAA 51, 48: INC 2: PRINT % 

11h és 1 rs IMC VS PRINT T4 


On obtient bien sûr 29.45 et —16. 


I, Instruction SWAP 


1. Syntaxe-but 


Cette instruction, relativement classique, et particulièrement utile pour les 
tris, s'écrit : 


SWAP variablel , variable2 
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Elle permute le contenu des deux variables (qui peuvent être des éléments 
de tableau), avec conversion en cas de types numériques différents: les 
variables chaînes sont ici admises {l'erreur TM” est bien sûr détectée et 
affichée si une seule des deux variables est de type chaîne). 


2. Réalisation 


On observera que notre routine utilise essentiellement une partie du trai- 
tement de l'affectation ($734 et 737), ce qui est logique puisqu'il s'agit ici 
d'affecter la valeur de var2 à var1 et réciproquement; la permutation est 
effectuée à l’aide de la pile, dans laquelle on range la valeur de var1 (par 
STS, $3F, JSR $737). 


La routine est la suivante: 


BAFC BC fsgé JSP 4640 Valeur vart-AC 
BAFF se F8 LEAS -8,5 8 octets maxi 
BBG1 180F 3F STS SF Adresse rangt.valeur 
H6Gd4 936 85 LDA L 1% bi Type de var1 
BEBE SE 30 LOXK SAC Adresse de var 
BEBE 34 12 PSHS H,% Empilement 

5BGA BD 6737 JSR 4737 Valeur varl-pile S 
BBGÈ 90 CA JSR SCA A-t'on ”,"? 

SBGF BD Un ETS 5 JSR SO0SUG Valeur var2-AC 
Biz SÉ 55 LDÜR SOS Type de var2 
FB14 A 4 STA 4e 

BB16 35 12 PULS #.%x Type et adr.var] 
BB1S Gr 3F STX B'SF 

BEA EC 47:34 JSF 97:54 Var2 convertie-+var1 
B61L 1F 41 TFR SA Adr.valeur var1-X 
BS1F BD 6843 JR SASGS Valeur var1AC 
HE 9 42 LDA gaz Type de var2 
Red GE 30 LOX Ce D Adresse de var2 
BÈEZÉ6 SF 3F STXx BEF 

BB28 ED a734 SP $f}:34 Varl convertie-var2 
BB?ZE 3e Été LERS 8,5 Restaure la pile 
BEZL: ce RTS 


REMARQUE : Les variables ne sont pas créées en mémoire par cette instruc- 
tion (utilisation de $800: voir 2° partie). 


3. Utilisation-exemples 


Nous rappelons ici le mode opératoire, à utiliser pour toute instruction 
nouvelle. 


Pour implanter notre routine en $BAFC par exemple (ou en toute autre 
adresse ne recouvrant pas une routine précédente, ou la dernière page de 
la RAM : rappelons que ce contrôle est effectué automatiquement par le 
programme de création), on écrira donc: 


2398 DATA SWAP,&HBAFC,BD,899,...,39,FIN 
2994 DATA INC, &HBABB8,SWAP,&HBAFC,FIN 


Après création, on enregistrera une fois pour toutes les octets correspon- 
dants par SAVEM, les adresses étant indiquées par le programme. 


Après relecture (LOADM) et exécution de CLEAR.INIT-1 : EXEC INIT (INIT 
étant par exemple ici $BAQ1), on pourra écrire par exemple: 


16 est. brie, 19: rsdas 
119 SUAF FC PRINT Ts 
LEE UMP ZX: FRINT 437, 
154 H$z "PAUL": BE UJENMHME" 
14 IF AGS:ÉS THEH SURF H$,ES%k 
154 PFRIHT H$,66:EHL 


On obtiendra bien sûr: 


és LA ls er US 
mn 14 443 se 
JEAHHE FALL 


4. Amélioration possible 


La routine précédente permet de permuter deux éléments de tableaux: on 
pourrait prévoir aussi la permutation directe de deux tableaux; les noms 
seraient alors précédés de DIM pour indiquer à l'interpréteur qu'il faut 
permuter deux ensembles de valeurs (et non deux valeurs seulement). 


On pourrait donc alors écrire : 


SWAP DIM Tableau, DIM Tableau2 
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Bien entendu, la routine vérifierait la conformité des deux tableaux, qui 
devraient avoir été déclarés auparavant; elle pourra être écrite en s'inspi- 
rant de la transmission des tableaux entre unités de programmes indépen- 
dantes, que nous allons voir au chapitre suivant (en particulier, ütilisation 
de $A48 appelée avec 1 dans $6197). 
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6 


Procédures 


variables locales 


On sait que la méthode la plus efficace pour traiter un problème complexe 
consiste à le décomposer en plusieurs sous-problèmes indépendants les 
uns des autres: chaque sous problème pourra lui-même être décomposé 
de la même manière en ‘sous-sous-problèmes””, etc... jusqu'à arriver à des 
problèmes élémentaires que l'on pourra programmer immédiatement. 


Cette méthode d'analyse ‘par raffinement graduel” est dite ”descen- 
dante”: elle opère donc du général vers le détail, et non en sens inverse 
comme on le fait hélas couramment | 


Une telle approche est possible en BASIC (usage des GOSUB et non des 
GOTO..) même si ce langage est peu adapté pour celà; toutefois, on est 
alors astreint à tenir compte à chaque niveau des informations utilisées par 
toutes les autres unités de programme: il n’est donc pas possible d'écrire 
et de mettre au point chaque module indépendamment des autres, d'où 
l'impossibilité pratique d'écrire et de mettre au point des programmes 
longs, et la difficulté de trouver certaines erreurs conduisant à des compor- 
tements anarchiques | 


Ceci est dû au fait qu'en BASIC toutes les variables d'un programme sont 
communes à toutes les parties de celui-ci, conduisant donc à des interac- 
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tions néfastes ; la seule exception est constituée pour certains BASIC par 
les fonctions utilisateurs FN, limitées à un simple calcul et donc sans 
portée réelle. 


Nous donnons ici une méthode permettant de créer des unités de 
programme, où procédures, indépendantes les unes des autres: toutes les 
informations utilisées par une de nos procédures n'ont en effet de sens que 
pour celle-ci, c'est-à-dire qu'elles sont /oca/es à la procédure. 


Nous verrons bien sûr que ces procédures peuvent aussi recevoir ou échan- 
ger des informations avec le programme qui les appelle. 


Elles peuvent enfin s'appeler elles-mêmes, ce qui autorise donc la vraie 
récursivité. 

Il vaut donc la peine de faire l'effort d'écrire les seuls 375 octets néces- 
saires pour tout celà !.…. 


I. Principe de la méthode — Passage des Arguments 
1. Principe 


On a vu dans la deuxième partie que f'interpréteur gère les informations 
utilisées par un programme à partir des adresses contenues en $611E 
(début de la zone des variables), $6120 (début de la zone des tableaux) et 
$6122 (début DEB de la zone libre, contenant la pile). 


Pour créer des variables ou des tableaux locaux à une certaine partie de 
programme, il suffit donc d'envoyer l'adresse DEB en $611E et $6126, 
après sauvegarde des valeurs initiales dans la pile. 


Toutes les variables ou tableaux rencontrés alors seront créés automati- 
quement (par la routine $A48) dans une zone de mémoire indépendante de 
la zone normale, et seront donc complètement différents des variables ou 
tableaux utilisés jusque là, et celà même dans le cas où les noms seraient 
les mêmes! 


Bien entendu, on restaurera lors du retour au programme principal (instruc- 
tion PROCEND définie ci-après) les valeurs de $611E, $6129 et $6122 
(cette dernière avec le contenu de $611E, qui ne bouge pas); les informa- 
tions utilisées par la procédure ne seront donc pas “vues” par le pro- 
gramme qui l'appelle. 


On aura donc bien ainsi l'indépendance des différents modules de 
programme. 


2. Passage des arguments 


Il est évident qu'une procédure ne peut être un bloc isolé, sans lien avec les 
autres modules de programme ; elle doit donc pouvoir recevoir des infor- 
mations, et en retourner en échange; ceci constitue le problème du 
passage des arguments”. 


[Il faut donc préciser lors de l'appel de la procédure (instruction CALL) la 
liste des arguments, ou des ‘paramètres ”, à transmettre à la procédure 
(arguments ‘effectifs "). 


Lors de la définition de la procédure (instruction PROC), on écrira la liste 
des arguments ‘formels ”, recevant les valeurs des paramètres effectifs. 


Il existe essentiellement deux méthodes classiques de passage d'argu- 
ments; nos instructions permettent effectivement l'utilisation des deux 
modes. 


— Passage par valeur: ce sont alors simplement les valeurs des para- 
mètres effectifs qui sont transmises à la procédure ; on ‘recopie ” pour 
celà les valeurs de ceux-ci après conversion éventuelle en cas de types 
différents, dans les variables formelles correspondantes. 

Les valeurs et en-tête d'un tableau sont, elles, directement recopiées 
dans le tableau formel, qui sera donc automatiquement créé avec la 
même structure que le tableau effectif: le nom devra être du même 
type que celui-ci, car il serait trop long à l'exécution de convertir un à 
un tous les éléments du tableau. 

Ce mode est le passage d'arguments par défaut que nous avons retenu 
pour nos instructions, semblables en celà aux instructions correspon- 
dantes du PASCAL, de l'APL et des fonctions FN BASIC (ce mode 
n'existe pas en FORTRAN, mais il peut être simulé). 

Dans ce mode de passage, aucune valeur n'est retournée vers le 
programme principal, qui est donc totalement ‘protégé ” des traite- 
ments effectués dans la procédure. 


— Passage par adresse: c'est alors l'adresse de l'argument réel qui est 
transmise au sous-programme lors de l'appel: lors du retour au 
programme principal, les valeurs des paramètres formels sont 
retournées vers celui-ci, c'est-à-dire que les paramètres effectifs sont 
modifiés. 
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On peut ainsi transmettre un nombre quelconque de résultats vers le 
programme principal, en prenant garde que certaines variables de 
celui-ci seront donc modifiées par l'exécution de la procédure. 

Pour indiquer à linterpréteur que l'on désire faire un passage par 
adresse, nous avons choisi d'utiliser ici, dans la liste des paramètres 
effectifs du CALL, le mot clé ARG (argument). 

Signalons que ce mode de passage est le mode de passage normal du 
FORTRAN ; en PASCAL, le principe est le même qu'ici (utilisation du 
mot clé VAR); toutefois, cette déclaration doit être faite lors de la défi- 
nition de la procédure et donc figée une fois pour toutes. 

L'intérêt de faire plutôt la déclaration lors de l'appel est que la procé- 
dure pourra ainsi ne pas retourner les mêmes paramètres (et donc ne 
pas modifier toujours les mêmes paramètres effectifs) lors de deux 
appels différents: voir l'exemple du jeu des jetons donné plus loin. 


I. L’instruction CALL 


Elle réalise l'appel d'une procédure. 


1. Syntaxe-action 


On écrira : 


CALL numéro de ligne (liste d’arguments) 


expression ou DIM Nom de tableau 
argument — 
ARG variable ou ARG DIM Nom de tableau 


La valeur de l'argument est transmise dans tous les cas à la procédure; si 
l'on écrit un nom de tableau précédé de DIM, c'est le tableau tout entier qui 
sera transmis. 


Si l’on utilise la déclaration ARG, il y aura en plus retour de la valeur du 
paramètre formel correspondant; l'argument devra donc être alors une 
variable (ou un élément de tableau), ou un nom de tableau précédé de DIM. 


L'instruction provoque le branchement à la ligne indiquée. 


REMARQUES: Toutes les variables précédées de ARG devront avoir été 
définies auparavant, par l'affectation d'une valeur par exemple {mais pas en 
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l'écrivant dans une expression, qui ne crée pas les variables en mémoire : 
voir 2° partie); on évite ainsi tout problème éventuel de déplacement de 
tableau en cas de création d'une nouvelle variable. 

De même, les tableaux à transmettre devront avoir été définis auparavant 
par une instruction DIM normale, ceci car $A48 appelée avec 1 dans 
$6197 ne crée pas le tableau. 

Bien entendu, tout manquement aux règles ci-dessus est détecté ou 
signalé, soit par ‘CN Error” (Can't continue) en cas de définition oubliée, 
soit par ‘SN Error” par exemple si on écrit ARG expression ou DIM nom 
(liste d'indices) comme argument. 


La routine 


routine place d'abord dans la pile: 

l'adresse du premier caractère qui suit le CALL, 

le numéro de la ligne du CALL, 

la valeur &H3B, placée à l'adresse a 

Ces 5 octets permettront le retour à l'instruction suivant le CALL, après 


exécution de la procédure. 
Pour chaque argument, la routine empile ensuite successivement : 


l'adresse de la valeur de l'argument, ou celle de l'en-tête pour un 
tableau (précédé de DIM), 


le type de l'argument, les bits 7 et 6 étant mis à 1 pour un tableau; 
dans le cas d'un tabieau à retourner, précédé donc de ARG DIM, seul le 
bit 7 est mis à 1, 


la valeur de l'argument (sur un nombre d’octets égal au type), sauf en 
cas de tableau ou de déclaration ARG:; l'adresse empilée 3 octets 
auparavant est alors celle de cette valeur, c'est-à-dire qu'elle pointe 
dans la pile elle-même. 


Après empilement du dernier argument, le sommet de la pile est à 
l'adresse B; on empile alors: 

l'adresse contenue en $61TE, 

celle contenu en $6129, 


l'adresse B, 
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— l'adresse à du &H3B {les arguments formels sont donc décrits dans la 


pile entre a —1 et f}, 


— Ja valeur &HCO caractérisant le CALL. 


Il y a alors branchement au numéro de ligne écrit après le CALL. 


La routine utilise un sous-programme déterminant l'adresse et le type d'un 
argument ; dans le cas d'un tableau, l'adresse retournée est celle du début 


de l'en-tête (voir 2° partie). 


Le listing est le suivant: 


RE: 
FRE 
FRS 
HE: 
BETA 
EE: 
ESF 
Ed 1 
EE: 
td 
FRE 
FRE 
RFdf 
FES 
ESS 
ÉFSS 
FÈSS 
HET 
ESS 
EFSE 
FEES D 
FÈSF 
FEES 
RÉ d 
FFÉÉ 
RARES 
FÉES 
EEE 
BED 
ERÈF 
BE T1 
BE; d 
FRE 
ER FS 


AD 7} Pis Lei 
Lu 
m 


[G EN 28 
APÈÉ 
Aé, 


Ra 


1 S 
SOMME 


aù DO OR IN GA 
TES 
D 


LE 3 


x D St LS Pr 


! 


LTE 
JSF 
LE 
AT 
LOY 
LC 
LC 
FSHS 
JR 
JR 
JSR 
LCE 
If 
JSF: 
IHCH 
BE 
CHF 
ÊNE 
RSF: 
QFA 
ERA 
SP 
L_DA 
FF 
HCDÛE 
HEGE 
LEAX 
F'IHS 
ST: 
TFF 
ISF: 
EFH 
JSR 
CE 


; L TOP 
BÉUSSÉ 


SBFFE 
C1 pe 
ec 
#S TE 
SECTE 
SES 
LT 7 où RC 
garer 
HHCI. 
GATE 
SES 


SÉETE 
RES 

SEFSF 
SÉFE: 
#$C: A 

SRE 
bte 1 H 


14 octets-pile 
Débordement ? 
Début zone libre 
Adr. inutilisée 

Adr. car. après CAL 
N°ligne du CALL 


Empilement 
Caractère courant 
Caïcui adr.brancht. 
A-ton “("? 

11 octets maxi. 
Débordement ? 


A-ton ARG (FFAB) ? 
Par adresse 

Code de DIM+1 
Variable 

S.P.+6 (tableau) 
1-bits 7 et 6 type 
Suite 

Calcul expression 
Type 

Nbr.octets val.-B 


Adr.valeur-X 


Pour empiler valeur 
Valeur-vpite 
Argument suivant 
24 octet code 

Code de ARG 
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BEFA ar DA JSF: SCA A-t'on ARG ? 
BEB?C 0 2F ESF: SÉEAC Sous-programme 
ERTE a [a Fa FE SERRE Suite (Variable) 
BESE A Da LA CFA #SÈif Tableau (1-+bit 7) 
SI SEE 14 12 PSHS  4,% 

ÉFS4 40 ES JSF SÉS Caractère courant 
FRE 5 1 Les, CMFH  #$629 Code de ”}” 

AS e re CF 14 BEF SEÉSE Terminé 

ÉRSH 90 CH ISF SCA A-t'on ”,"? 
ESC of EC BFA SEE4E Argument suivant 
PESE CE 1E LOI $1E Début variables 
[ae es be LA IGSGE 264 LOY &A Début tableaux 
tm Be iF 41 TFR S,# Adresse B-X 
ÉBSS CC AC LED SC Fond de la pile 
ER 2:34 HA4N7 SUECT #4 Adr.a de #3B-+D 
ÉF:2A 24 TE PSHS AB, %. Ti Empilement 
FES AE CA LCA #&CG 

FRE ‘+4 He PSHS A 

ERA SE ee Cr get Début zone libre 
LE] ml m Po BI EFFE CP:  SEFFE S'est-il déplacé ? 
FBAHS me 44 BNHE SÉEDE Oui CN Error 
FEAT EC (EL R be JSR SA: Sur ligne indiquée 
ERA CE SAET NF SAED Exécution 


Le sous-programme est le suivant: 


ÉEAD 40 ES JSF $ES Caractère courant 
FERF £a À 4 CFA  #$£54 Code de DiM 
HAE 1 LÉ, Éé EE. SHARE Var.ou elt.de tab. 
ER Lits A] LDA # HA] Tableau 

FÉES “ra is STA 14 Pi Cherchera en-tête 
FEB? CR FZ JSF GE 

RES FT dE JSF AH Adr.—X :type-95 
FREC Dé [er DE _'1GFA 

et era Fe RE) SÉFLÉ 

el I LR TSTH Tabl.existe déjà ? 
ER 1 a Le LES BEC SÉRLE oui 

FT TA EFFE PET BÉFFE non 

EECE 96, AS LCR GAS Type 

FAITS F (6 à CLE AT 

BECR mi TSTE Var.ou tableau ? 
FETE 414 RTE Retour 


REMARQUES : On notera ici l'utilisation de deux octets situés en $BFFE pour 
détecter tout déplacement de la zone des tableaux. 
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D'autre part, la routine $A48 appelée avec 1 dans $6197 retourne A=1 si 
le tableau correspondant n'existe pas en mémoire (et A—@ dans le cas 
contraire); on déplace alors $SBFFE, d'où la détection (à la fin) de l'erreur 
CN. La somme de contrôle est ici égale à 15726. 


II, L’instruction PROC 


Elle permet de définir les paramètres formels de la procédure: suivie du 
mot END, nous verrons qu'elle provoque le retour au programme principal. 


1. Syntaxe-action 


PROC (liste d’arguments formels) 


Argument formel — Variable ou DIM Nom de tableau 


L'argument formel prend dans tous les cas la valeur du paramètre effectif 
correspondant. 


Dans le cas d'un nom de tableau précédé de DIM, le tableau formel est 
créé automatiquement avec la même structure que le tableau effectif; le 
type doit être alors le même que celui de ce tableau effectif. 


Le nombre, la nature (variable simple ou tableau) et le type (numérique 
quelconque, ou chaîne) des paramètres formels et effectifs doit 
correspondre. 


Tout manquement aux règles ci-dessus, où par exemple la rencontre par 
l'interpréteur d'un PROC sans qu'il y ait eu appel par CALL, est signalé par 
un "CN (ou SN) Error”. 


REMARQUE: On peut écrire un élément de tableau comme argument; il y 
aura alors création automatique du tableau correspondant, de taille 11. 
2. La routine 


Elle vérifie que la valeur située en haut de la pile est bien &HCQ (précédé 
de l'adresse $2B23 de retour à la boucle d'exécution des programmes : voir 
2° partie) : elle remplace ensuite cette valeur par l'adresse du 1°' caractère 
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du 1°’ argument (ceci pour le retour), empile la valeur &HC1 caractérisant 
PROC, et remplace l'adresse de retour au sommet. 


Les zones des variables et des tableaux sont alors déplacées en zone libre 
(d'où l'indépendance totale entre les variables et tableaux de la procédure 
et celles du programme principal), puis les paramètres formels sont créés 
dans ces zones, et initialisés au fur et à mesure avec les valeurs des para- 
mètres effectifs correspondants (pile balayée grâce au registre Y). 


Il y a alors exécution de la procédure, jusqu'à l'instruction PROCEND. 


Le listing est le suivant: 


BECL CR Sa CFA  #$SA Code de END 
ABCE EP ÊC EE SECTE PROCEND=retour 
FEDS ED M'EE JSR SArEE A-ton ”(”? 
ERC':: 4 ax FULS Adresse $2B23 
BELLE 35 22 FLILS A4,%Y Adr.u{CALL}-+Y 

lai 51 RFA Gi ca CMP  #$SCA 

BEC or a pes BED SÉÉE 

RBDE CE 11 LOE #S$1 1 

BED CE SEX MF AIS CN Error 

RE di IHECH #$C1—+A 

BEE 1 AE (AD) LOX L 12%) Adr. 1° caract. 
EE: 4 2 PSHS  ÀA,Xa7T 

ÉBES 4 rt PSHS LL Replace $2B23 
FRET GE 2e LOx Les Adrzone libre 
RÉES °F 1E STA SE Déplact.zone var. 
BBÉE: SF ch ST* &2A Déplact.zone tab. 
BRED al FE ESP SERAC Sous-programme 
ÊBEF Cdi 2 À BEC SEC Variable 

HRF 1 EE [a RS LOI er Tableau 

BEFS HE Hz ERA  :-" Types égaux ? 
HEFS pu EF HHCA  #$EF obit 6 

FFF? 4f CECR A-t'on $89? 
BEFS Es É 1 EVE SEELCE CN Error 

FBBFA EC: FMLES ISF $SAACER Nom-zone tableau 
BBF C FE 21 LCA LT Adr.tabl.effectif 
BBFF iF 1f TFR 5, D Adr.tab.formel-D 
BCE 1 ES DC: AGEE 1] D+taille tab.eff.—D 
EL:Et:3 CC DE STD L Pa Déplact.zone libre 
BCAS EC 433À JP SAST3A Débordement mem.? 
ECAS A6 CE LEA s U+ 1 octet tab.eff. 
ECEA Ar Et STH AT —tab.formel 
BCRC AC Le CP  $zZ fini ? 

ECAE 5 FE FL SECAS Boucle 

BC 15 264 1E EF'A SEC Suite 
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EL 1 AF SF ST L 21 2 Adr.var.form. 

EC 14 44 a jen FSHS  KH Type var.form.-pile 
BC1E AE H:4 LOX TT Adr.var.eff.-XxX 
ECS HË A2 LDH sn" Type var.eff.+A 
AC1H SE EF BI SEELCE CN Erroritableau) 
BC1C ar A5 STA E 10 bec 

RCIE a Do Chip Le Valeur dans pile ? 
ECZ2A Pet LE KL SEL.?24 non 

BC? 1F 12 TFF “at Adr.valeur-Y 

BC 24 EC: AAA JSFR LG PET Argu.eff.AC flot. 
C2? Ce (Up FLILS Type var.form. 
FC? 4 cf PSHE Sauvegarde de Ÿ 
RC2É ED G7:34 JSF: gd Val.convertie-var. 
BÈ2E 35 24 FLE 

ÉC2n LAC 67 CMS 7,5 Fini ?(Y=B, de CALL) 
BC:5S D É nd BEL ECTS oui 

EL:3SS SR CH JR SC A-ton ”,"”? 

[SINC TA F1 E4 EF'A $ÉBET Argument suivant 
BC3S TE AE NF SAES A-ton “)'"'?RTS 


REMARQUE : Cette routine devra être implantée juste après CALL, ceci pour 
que les branchements relatifs au sous-programme et au CN Error soient 
exacts. 


IV. L'instruction PROCEND 


Elle provoque le retour au programme principal. 


1. Syntaxe-action 


PROCEND ou PROC END 


Il y a retour à l'instruction du programme principal qui suit immédiatement 
le CALL. 


Les paramètres formels correspondants aux paramètres effectifs précédés 
de ARG dans l'instruction CALL sont retournés au programme principal. 


Une procédure peut contenir plusieurs PROCEND. 
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2. La routine 


La routine dépile d'abord les boucles FOR où WHILE non terminées, qui ne 
provoqueront donc pas d'erreur {routine $2F3: voir 2° partie). 


Puis elle vérifie la valeur située en haut de la pile (&HC1); les paramètres 
effectifs présents dans la pile sont examinés un à un (registre Ÿ}, et ils pren- 
nent éventuellement la valeur du paramètre formel correspondant (si leur 
adresse ne pointe pas dans la pile). 


Les adresses des trois zones (variables, tableaux, libre) sont alors 
restaurées; toutes les variables et tableaux utilisés par la procédure ne 
seront donc pas ”vues” par le programme principal. 


il y a enfin retour au programme principal, grâce à la routine $64C {traite- 
ment de RETURN). 


Le listing est le suivant: 


BL:3C 90 B2 JSR $EZ 1°" octet après END 
BCSE LT 41 BE BC d1 

pCâaÿ 49 RTS Provoque SN Error 
HCd i 86 FF LCA #$FF FOR WHILE non... 
BCd43 a? SE ST $3F …dépilés sinon 
BC4S ED A2F 3 JSF: $SO2F SE Cherche FOR, WHILE 
BC48 iF 14 TFR LVL Dépilement 

BL4R 35 42 PULS AU Adr.1°" arg.PROC-U 
BC4C 91 C1 CMFH  ##C1 

BC4E ra A3 BEC SÉCES 

BC5@ TE 17h84 JP Si7A8 RE Error(Return er.) 
BCS:3 DF (a4) ST SES Sur le 1% arg. PROC 
BCSS 1GHE Ed LDY 5 atvoir CALL)-Y 
BCSE 17 FFS2 LESF  $BERALD Sous-programme 
BCSE ae 14 BEG SECrS Variable 

BCSD EF H3 LOI] nd | Adr.tableau eff. 
BCSF A6 RZ LOA no T Type 

BCé1 84 40 ANCA #$d4ñ Garde bit 6 

BCES 26 LS BNE SBCSE Suite (par valeur) 
BCAS iF ia TFF #: C par adr.:adr.déb.-D 
BCÉ? F3 Ed ADDED x D+taille tab.D 
BCÉ6S CO Is T4 STD Er Adr.fin tableau 
BCEE RÉ 58 LDA s A+ 1 octet tab.form 
BCéED A7 C8 STA » [+ tableau eff. 
BCGF ac 37 CMPX SSr Fini ? 

BC? 1 25 F8 ELO 6ECéE Boucle 

BC?73 z6 19 BRA SEALSE Suite 


BC?S EE "3 LCL y Adr.valeur var. 
BC?77 DF SF STU SF 

ECS 1193 22 CPU  $272 Valeur dans pile ? 
ECFC 25 84 BLO SECS2 Non transmettre val. 
EC?7E 1F 32 TFR U,"% On saute la valeur 
BCB9 24 BC ERA SECSE Suite 

BCEZ BD 1843 JSR $0893 Val.form.—AC flot. 
BCSS A6 A4 LD se" Type arg.eff. 
BCS7 ‘34 20 FSHE Sauvegarde de Ÿ 
8C83 BD 7.34 JSR 47414 Val.convertie-var. 
BCRC 35 20 FULS  Ÿ 

ECSE A0 B2 JSR 462 

BCAG 104€ 62 CMPFY 2,5 Fini ?(Y=B,de CALL) 
BC93 26 ic: BNE SECSe Argument suivant 
BCSa7 1F 04 TFR D,S Pile restaurée 
BCaS Ed LE LOX $iF Adresses zones... 
BCSE SF 22 STX 22 

BCS0 109F 26 STY 20 

BCAD DF 1E STU sie .restaurées 
BCAZ A6 Ed LDRA :$ Valeur 3B-A 
BCH4 TE B64C JF $964C Trait. de RETURN 


V. Applications simples 


1. Mise en œuvre 


Les instructions CALL, PROC et ARG seront implantées et mises en œuvre 
en ajoutant les instructions suivantes au programme de création: 


2498 DATA CALL,&HBB39, liste des codes, FIN 

2598 DATA PROC, &HBBCC, liste des codes, FIN 

2999 DATA INC, &HBABB8 SWAP,&HBAFC,CALL, 
&HBB38,PROC,&HBBCC,ARG,&H7F3,-FIN 


Les adresses données ici sont indicatives : rappelons toutefois que PROC 
devra être implanté immédiatement après CALL, et que l'adresse de ARG 
sera toujours $/F3 (SN Error) puisque ARG n'est pas exécutable. 
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Il est enfin obligatoire d'écrire INC et SWAP en 2999 pour que ARG soit 
codé &HFFAB ; si on ne désire pas les créer, on n'écrira évidemment pas 
les lignes 2209 et 2300, et on écrira: 


2998 DATA INC,&H7F3,SWAP,&H7F3,CALL,etc….. 


Après exécution, et sauvegarde (SAVEM) des octets correspondants et de 
la table des noms, les instructions seront activées par un simple EXEC 
&HBA91. 


2. Premiers exemples 


Exemple 1: 


56 REM LorPs du Frogratme. 

19 428,13: v=z-d1, d'YARESE, d 

lié CALL AB "TEST HAE Ka T5, 12% 02 

124 PRIHT"PrSm, FPrinciPal :"ix ir: VAR Zi EX 
1:4 EHD 

A ‘fFrocedure,.,. 

“14 PRICE HS AE: ; ea E:£ 1 

Le FRINT'Frocedure LU MS VAR Ci T 
2h VARZS1E,. 65: PROCEHD 


On obtient : 
Frocéedure : TEST 8.15 -58.3 -di 0 6 
Fram. FrinciPal : 12.67 -41,4 32,4 6 6 


Les variables X et ŸY du programme ne sont pas vues” par la procédure, et 
réciproquement pour les variables Z et B%. 


La variable VAR de la procédure correspond à la variable X du programme 
principal, et sa valeur est retournée dans celle-ci: elle n'a rien à voir avec fa 
variable VAR du programme. 
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Exemple 2: 


189 H=2B':DINM A&NH2,ESCHi “Taille H 
11H ‘Lecture tableau H$ fa ecrire... oi 

204 CALE SH DIN HS AKG DIN E$ NH 

214 “On a dans B$ le tableau initial trie 
Per ‘Suite V4 ecrire: 

434 END 

598 FROCCDINM TI$ DIM T2$.F5 

919 ‘Tri dans T2$% du tableau Ti1$ ia ecrire) 
64 PRÜCEH*D 


On peut bien sûr aussi trier directement dans le tableau A$, en écrivant: 


288 CALL 588(ARG DIM A$,N) 
5ff PROC (DIM T$,P) 


3. La récursivité 
Nous rappellerons ici qu'un sous-programme récursif est un sous- 
programme qui s'utilise lui-même dans sa propre définition. 
Par exemple, une factorielle peut se définir par: 
ni=nsx(n—1)l 
De même, la définition d'un nombre de Fibonacci est: 
FFF 2 
Enfin, un coefficient binominal peut se définir par: 
cP : cP —1 F cP 


n n— 1 n—1 


Ces trois définitions sont récursives. 


Le BASIC normal autorise une pseudo récursivité puisqu'un sous- 
programme peut s'appeler lui-même; elle reste cependant très limitée à 
cause de la ‘globalité des variables. 


Nos procédures permettent par contre une totale récursivité, ce qui cons- 
titue un outil très puissant en programmation. 
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Exemple 1:11! 


1 IHPFUT "Donner un nombrect1i a 3532 “5 H4 

114 FAHCT=H: CALL ZOBCHRE FACT.H% 2 

124 PRINT 'PHLTORIELLE "5H: "ets FACT 

1539 EHD 

1935 ‘Frocedure recursive.,., 

209 FROCCF 2 ",s.calcule F=Hl 

ci IF H£zi THEH Fzi ELSE CHLL EGYCARS F4 H-1 2:F=F#tH 
sen FROC EHDC 


On obtient par exemple : 
FACTORIELLE 4 = 24 


Le fonctionnement est le suivant: il y a d'abord appel de PROC (F,4) par le 
programme principal: la procédure elle-même appelle alors en 210 
PROC(F,3), qui appelle elle-même PROC(F,2), qui appelle enfin PROC(F,1) 
où la règle d'arrêt (obligatoire !} est vérifiée. 


Il y a alors retour de la valeur 1 vers PROC (F,2), qui retourne donc 1 x2=2 
vers PROC(F,3), qui retourne elle-même 2x3-—6 vers PROC(F 4), retour- 
nant enfin 6xX4=24 au programme principal. 


À un moment donné de la récursion, il pourra y avoir par exemple une ving- 
taine d'appels imbriqués, chacun ayant créé ses propres variables, conte- 
nant toutes des valeurs différentes bien qu'ayant le même nom! 


REMARQUE: FACT =" valeur” est obligatoire à la ligne 119 pour définir la 
variable FACT (précédée de ARG dans le CALL):; par contre, en 210,F est 
déjà définie par l'instruction PROC elle-même. 


Exemple 2: C P 
n 


34 IHMPUT "HP "if 

sit CONMESD:CALL de ARE COMB, H,P 5 

326 FRIHT:FRINT P 

AG PRINT H5 "2"; COMÉ : CHASE 13 

Sa AÎTRE Gi: PRINT CCTCATTRE à, 6: EMD 

43 ‘“Fracedurei réecursive : 

418 PRULELC NH Po: CPE 

424 IF F=<ÿ Ok HizP THEN Lai ELSE CALL dB ARE CiN-i,F-1 
n:CALL défie ffis CF H- 1, Fu: CaeC+CP 

4:45 FROCEHC 
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On obtient par exemple: 
3 
C 7 35 


On constatera qu'il est ici nettement plus facile d'écrire ou de comprendre 
le programme que de suivre exactement tous les appels et retours | ceci est 
d'ailleurs fréquent avec la récursivité. 


On notera aussi que les deux exemples ci-dessus pourraient être program- 
més sans utiliser la récursivité (ce qui serait d'ailleurs ici plus efficace); 
l'emploi de celle-ci permet par contre üne écriture très claire et élégante. 


Dans certains problèmes (parcours où création “d'arbres”, tri par 
’quicksort”, etc), elle est d'ailleurs quasi-indispensable, et doit être 
simulée au prix d'une gymnastique compliquée en cas d'utilisation de 
langages non récursifs (par exemple BASIC standard, ou FORTRAN). 


VI. Application aux jeux 


1. Le principe 


Soit à programmer un jeu où le programme devra affronter un joueur. 


La récursivité permet d'écrire très facilement un sous-programme analy- 
sant à un moment donné de la partie la situation de jeu, jusqu'à son terme. 


À un instant donné de l'analyse, le sous-programme s'appelle lui-même 
pour tous les coups possibles de l'adversaire ; lorsqu'il y a ainsi arrivée à 
une situation finale perdante, la récursivité permet de revenir automatique- 
ment à une situation antérieure ; dès qu'un coup gagnant est trouvé, il est 
retourné au programme principal. 


2. Exemple: jeu des jetons 
Dans ce jeu simple et classique, on part d'un nombre quelconque N de 
jetons; le joueur à qui c'est le tour de jouer peut en prélever un ou 


plusieurs, sans en prendre plus du double de ce qui a été ôté par l'adver- 
saire au coup précédent. 
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Le gagnant est celui qui ramasse le dernier jeton. 


Exemple de partie : 


11 jetons au départ: 

— Îe programme en prend 3; restent 8; le joueur en prend 2, 

— le programme en prend 1; restent 6: le joueur en prend 1 (forcé), 
— Île programme en prend 1 (forcé): restent 3: le joueur en prend 2, 
— le programme prend le dernier et gagne. 


À un moment donné de la partie, la situation de jeu est ici représentée par 
un couple (N, MAX), où N est le nombre de jetons et MAX le nombre maxi- 
mal que l'on peut prendre. 


Le listing du programme est donné ci-après: on constatera le choix d'un 
coup aléatoire si N est supérieur à 19, ceci car la recherche de tous Îles 
coups possibles serait alors trop longue: celà constitue donc la seule 
chance de battre le programme, imbattable autrement... 


On remarquera enfin que la programmation de jeux tels que jeu des allu- 
mettes (jeu de Nim), tic-tac-toe, etc.., utiliserait exactement le même sous- 
programme ; seule changerait la représentation de la situation de jeu. 


Le programme complet est le suivant: 


ii CLEAK. HHEHAS: FRINT'"'Lecture des routines de Fracedure 


28 LOACNM:EXEC2HERG I 
jaë CLS: DEF INTA-Z: Ce: IMPUT"Combien de jetons au deFart 


',H:MHA=H-1 


119 FRINT'Voulez vous commencer CONTI": HS=IHPUTSE 10:F 
ÉEIHTAHS: FELIHT 

124 IFHS=" O0" GOT E 

136 

tar", Douce lesux 

EG COLOR 4, SPRINT "De vais Frendre.. "3 

219 IFHEZY LOTOZSH 

2e FÜORISITOSAE : HEXT : LeRHDEZ+., S : GOTUZSE 

co CALL 19440 H, MAS ER MES Lu 

PO BEÉRF:HEH-C:MAXSS#C: IF L:1 THEH A$g<s"s" ELSE KH$="" 
345 PRIHT Citieton"; 4$; "irestent' MH: COLOR Sd, EE 
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s16 IF He THEH ATTRE 1,1:FHIMT:PRIHT'"Vous avez Perdu,. 
...… desole... ":GOÜTOSAA 

A4 INPUT" Combien Frenez vous dé jetons":5fF 

416 IF FS1 OK PSMMX THEH PFRINT'FAUÉ "3 : LOTO 

dE M=H-F: MASSE: IF Ni GÜTOZA4 ELSE ATTREL. 1:PFRINT:PR 
INT"'Vous 3vez ‘asane,.... brave," 

SOA ATTREN, 6: PRINT: PRINT "Une autre Fartie CO, Mir"; :A$=] 
HPUT Sc { à 

ed IFH$S="O"GOTOiN4 ELSE EHD 


CS 

235 ‘Frocedure,,. 

AE PROC, M, JO RES, CO: 

1414 IF H<=NM THEN FES= JO: CSN : FROCENHD 
1n24 FOR COM TO 1 STEF —1 

1924 CHLL 16 N-C0, CO+CÛ0, 1-JO0. REG RES. 02 
144 IF JO=ZFES THEH FROCENL ELSE HEXT 


1454 RESES1-J0: COSRNDEZ+. 5: FROCEHD 


REMARQUE: On n'a ici besoin que des routines correspondant à CALL, 
PROC et PROCEND, qui pourront donc être seules implantées (à partir de 
$BD49 par exemple, l'initialisation étant en $BD@1) et enregistrées sur 
cassette (de $BD91 à $SBFFF) pour cette application. 


Commentaires : 


La variable JO contient @ si c'est au programme de jouer (on a alors un 
coup gagnant si le CALL dans la boucle retourne RES=—@, c'est-à-dire 
RES=—JO), et 1 dans le cas contraire (on a alors un coup gagnant, pour le 
joueur donc, dès qu'on obtient un RES=1, c'est-à-dire RES-JO encore). 


RES vaut @ en cas de situation gagnante pour le programme, et 1 dans le 
cas contraire; en cas de situation gagnante pour l’un ou pour l'autre, on 
sort donc directement de la boucle avec RES=—JO : on retourne par contre 
RES=1-—J0 en cas de sortie normale de celle-ci. 


COUP est le coup gagnant (s'il existe) trouvé par le sous-programme. 


On observera que toutes les parties possibles sont jouées et analysées par 
notre procédure, avec six instructions seulement ! 


On notera enfin que le CALL dans la procédure elle-même ne doit pas 
modifier le coup x envisagé, d'où la transmission par valeur de @ par 
exemple ; par contre, le coup x doit être retourné au programme principal, 
d'où une transmission par adresse dans celui-ci. 
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VII. Améliorations possibles 


On pourrait par exemple créer assez facilement la possibilité de faire des 
appels de procédures par nom, et non plus par étiquette numérique. 


Ceci améliorerait la clarté des programmes, et rendrait l'écriture de l'appel 
et de la définition de la procédure indépendante de la numérotation des 
lignes. 


On pourrait du même coup créer des branchements par /abeïs : l'instruction 
BRANCH nom provoquerait un branchement à la ligne commençant par 
LABEL nom, LABEL étant une instruction non exécutable; son adresse de 
traitement serait donc (en 2994 DATA...) $663, qui cherche le premier @ 
ou ‘’:' situé après le caractère courant. 


Dans les deux cas (CALL et BRANCH), le nom serait traité par la routine 
$AOA, qui le rangerait en $657A (voir la routine $A48); le nom serait 
ensuite cherché dans le programme de la même manière qu'une étiquette 
numérique est cherchée par la routine $4A@ (voir GOTO). 
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7 


Les sprites 


On désigne par ”sprite” (‘lutin en français) un motif graphique program- 
mable mobile sur l'écran. 


Le déplacement s'effectue toujours sans modification ou effacement de la 
scène, c'est-à-dire que tout se passe comme si le sprite passait devant le 
décor; toutes les rencontres avec des objets fixes de la scène ou avec 
d'autres sprites sont détectées automatiquement. 


L'utilisation de sprites facilite donc énormément l'écriture de programmes 
d'animation graphique: elle autorise de plus des animations de qualité: 
formes et couleurs entièrement programmables, mouvements continus à 
vitesse quelconque, etc. 


La gestion des sprites est pratiquement toujours effectuée par un circuit 
spécialisé; celui-ci n'existant pas sur les TO7, nous présentons ici une 
méthode entièrement logicielle, se présentant sous la forme d'une routine 
de 34@ octets; elle permet l'animation d’un nombre quelconque de sprites 
différents, choisis ici de taille 16 x 16 points (facilement modifiable). 
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I. Animation graphique classique 


- 


Lorsqu'on désire animer des objets graphiques sur l'écran, on doit effectuer 
les opérations suivantes: 


1. Calcul à partir des coordonnées courantes {Xxo, yo) de la nouvelle position 
(x, V1}, 


2. Effacement de l'objet, situé en (xo, Yo) (affichage d'un caractère 
espace‘ ou d’un rectangle (BOXF) de couleur ”’fond”}, 


3. Dessin du nouvel objet, en {x1, vi), 
À. X1 —> Xo, Y1 — Yo 
5. Retour au début. 


On a ainsi un temps minimal entre l'effacement et le nouveau dessin: on 
obtient donc un mouvement le moins ”saccadé” et ” clignotant” possible, 
mais non idéal dans tous les cas. 


De plus, le déplacement de formes quelconques, non limitées à de simples 
rectangles, impose l'affichage (par LOCATE et PRINT) de caractères utilisa- 
teurs ; (le mouvement ne peut donc s'effectuer que de 8 points en 8 points 
(25 lignes, 49 colonnes) et non de manière continue. 


I, Instruction SPRITE 


Elle permet d'éviter tous les inconvénients précédents, et elle accélère 
considérablement l'exécution de l'animation. 


1. Syntaxe-action 
Notre instruction peut se présenter sous deux formes différentes : 
a) Forme normale: 


SPRITE numéro — (x, y) {, couleur] 
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Le sprite dont le numéro est spécifié (de @ à 15 ici) est effacé automatique- 
ment {par restauration de la scène présente initialement à l'emplacement 
du sprite) s'il était actif, et immédiatement redessiné au nouvel emplace- 
ment (x, y}; le décor présent à cet endroit est sauvegardé. 


Le numéro peut être spécifié sous la forme d’une constante, d'une variable 
ou d'une fonction. 


x et y désignent les coordonnées du coin supérieur gauche du sprite (@ à 
319 pour l’abcisse x, @ à 199 pour l'ordonnée y). 


Si le paramètre “couleur” est absent, le dessin du sprite est effectué dans 
la couleur courante (modifiable par l'instruction COLOR): dans le cas 
contraire, c'est la couleur spécifiée qui est utilisée. 


Enfin, dans le cas où le sprite recouvre au moins un point de forme” (bit à 
1 dans la mémoire écran ‘’forme”), la mémoire d'adresse $BFFD est mise 
à @: elle contient —1(&HFF) dans le cas contraire. 


b) Désactivation : 
SPRITE numéro 


Le sprite dont le numéro est spécifié est désactivité ; il y a alors seulement 
effacement, toujours par restauration de la scène initiale. 


La première utilisation d'un sprite réalise automatiquement l'activation de 
celui-ci; il n'y a alors pas d'effacement. 


2. Dessin et définition d’un sprite 


Chaque sprite comporte ici 16 x 16 points. 


Le sprite de numéro NUM est défini par les 4 caractères utilisateurs de 
numéro 4 NUM + 3 à 4 #« NUM, un point ‘allumé ” correspondant à un bit 
à Î. 

GR$(4 # NUM +3) définit les quatre premières lignes du sprite, 
GR$(4 # NUM +2) et GR$(4 «NUM +) les 8 suivantes, et enfin 
GR$(4 # NUM) les 4 dernières. 


Grâce à cette convention, les lignes de chaque sprite sont placées correcte- 
ment en mémoire {après inversion en $BD4B de chaque couple d’octets): 
voir la deuxième partie pour la représentation des caractères utilisateurs. 
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Exemple: Soit le petit hélicoptère suivant: 


7 6 5 4 3 2 1 @ 7 6 5 4 3 2 1 0 
CO POP OO PE 
o2 DR EMIES —# 


1) + 
LEE m2 7207710 mu _ |ce 


AU D + V7 WE 
AE rh TILL Pr: 


au Es __L 1ce 
84 >: 73 |a2 
NON À re 


Le sprite correspondant, de numéro 2 par exemple, sera donc défini par les 
instructions suivantes : 


14 CLEA, SHEGFF, LE 
24 DEFGRSS 112-265, 248,8, 0,3 
56 LEFGRS 1965, 254. 63,227 


“1 DEF LES 5 =, D, G, D, ä, ÿ: fi 


REMARQUE: On verra au paragraphe lIl que l'on peut associer 2 (ou plus) 
sprites pour créer des motifs de 32 x 16 points. 


3. Gestion des sprites 


Chacun des 16 sprites est géré de la manière suivante: 


a) 48 octets contiennent les 16 lignes correspondant au motif du sprite, 
décalé à droite de r positions (r étant égal au reste de la division de 
l'abcisse x par 8, puisque la mémoire écran est constituée de segments de 
8 points). 


On obtient donc 3 octets pour chaque segment de 16 points du sprite, que 
l'on permutera avec les octets correspondants de la mémoire écran 
(mémoire de forme) pour dessiner le sprite, et pour permettre la restaura- 
tion ultérieure de la scène initiale. 


Ces 48 octets sont situés ici en $B4909 pour le premier sprite, en $B46@ 
pour le second, …, jusqu'à $B9A@ pour le 16°. 
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REMARQUE : Si un des 3 octets d'un segment du sprite décalé ne contient 
aucun point de celui-ci, on le remplace par l'octet correspondant de la 
mémoire de forme ; à cet emplacement l'écran ne sera donc pas modifié 
par le dessin du sprite, ce qui est normal. 


b) 48 octets décrivent de même la couleur des 16 segments du sprite: ils 
sont eux aussi permutés avec les octets correspondants de la mémoire 
écran (mémoire de couleur} lors de l'affichage du sprite. 


Ces 48 octets sont situés ici en $B43@ pour le premier sprite, en $B49@ 
pour le second, …, jusqu'à $B9D@ pour le 16°. 


REMARQUE : pour chaque octet, la couleur de forme (bits 3, 4, 5, et 6 pour le 
TO7-70) est celle du sprite, sauf s'il n'existe pas de points de celui-ci dans 
l'octet “forme” de l'écran à cet endroit; on prend alors bien sûr la couleur 


A 


forme” de l'écran à cet endroit. 


La couleur de fond de chaque octet (bits O, 1 et 2, et 7 pour le TO 7-76) est 
celle de l'écran à l'endroit correspondant, sauf si l'octet U formé de la 
réunion de l'octet écran “forme” et du sprite décalé ne contient que des 
points de forme (U=&HFF): c'est alors la couleur forme de l'écran à cet 
endroit qui est prise comme couleur de fond, ce qui est là aussi normal 
{sprite passant dans une zone de couleur, dessinée par exemple par BOXF 
avec une couleur positive). 


c) 4 octets contiennent respectivement l’abcisse et l'ordonnée du sprite: 
le premier octet de l'ordonnée {poids fort} non nul indique que le sprite est 
non actif. 


Ces octets sont situés ici en $BEC@ pour le premier sprite, $BEC4 pour le 
second, …, jusqu'à $BEFC pour le 16°. 


4, La routine 


Elle détermine d'abord les adresses des zones de gestion du sprite concer- 
né, puis en $BD19 celle du début des 4 caractères utilisateurs correspon- 
dant au sprite (utilisation de l'adresse contenue en $612A: voir deuxième 
partie}. 


Après restauration de la scène présente initialement à l'emplacement du 
sprite (appel en $BD34 du sous-programme de permutation entre la 
mémoire écran et la zone des 96 octets correspondants au sprite), l'image 
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du nouveau sprite est construite dans les 2 x 48 octets prévus pour l’affi- 
chage : en $BD39, la forme est obtenue par décalage à droite des carac- 
tères utilisateurs correspondants: en $BD84, la couleur est construite 
comme vu précédemment. 


Il y a alors permutation en $BDBA entre ces octets et la mémoire écran. 


La routine est la suivante: 


RCE Eu Le FF LD RSFF —1-A 

CES EF BFF CL ST SEÉFFC Détectera collisions 
ÉCEÉS EC US15 JSF ASS Positionne sur n° 
RUEE ED A7 74 ISF Are Traite n° sprite 
ÉLÉE EC: AEBE JS SAFEÉE: Conversion en entier 
SNS | 44 1: FOHS x N° et car. courants 
BRCC'E Sr (2 Fa KE LI SECCC Désactivation 
ELCS 1BSE Bacs LCY HAL 269=—hors écran 
ECCS EC SC ISF E 26 par Per 1 1 Traite coord.,couleur 
BCCE EL F1 CC 1,5 N° sprite-D 

BCCE Ci AF CNFE  #SUF 15? 

RCD 3 (A BL£S SECCE Oui 

BCD: rE AESC JF SABSC Non=FC Error 
ECC SE L'SLE 

BCCE nt LSLE Numéro »4-D 
EC (Ce FELH HCDC  #$SBECG 

BC CC 3 STC C Ta Adr. abscisse-+$63 
BCDE AC IHCE 

BELL JE. IHLE 

BCE DC: En STD ges Adr. ordonnée-$65 
LES H6 Cat LTA rs N° sprite-+A 

BCE LE Efd LOEB LE Lea 

BLE 4 ci MLIL. 

BLES LL EE ACCC  #$Ednn 

EUES [if Ë TL GE Adr. 96 octets-$67 
ECER EC NFÉ18S  LOD C$Se1651 Ordonnée précédente 
MAS CC A STC ÿL …-#$5C 

BLFE FL: AFeliss LOC L$é16:1 Abscisse précédente 
Er: F à RE JF STC #54 …+$5A 

PLFÉ ME 1 FLILS À. Car.courant-»AÀ 
BLFE 1 BE CHPH  H#S$SLA Doit-on redessiner ? 
BCFH cri ÊtE PET SEDA Oui=>suite 

RCFI V ABF LESF $SRCEE Non—effacement 
BCFF UE SFÉIES IH LS61651 Désactivation 
BD: CE MTS Fin 

HCE14 FL RUrE LOT ES rE Nouvelle abscisse x 
BD EL AFAÎES STL L$ilé:s1 Reste de x/8 
BCAE [4 CP ANLE  K#$ny nbre.décalages+ 1 
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BCD 
BCE 
ED1% 
ED 12 
HD15 
BOIS 
BCE 
BCE 
BDIE 
EC 24 
ADS 
ED24 
BDA 
BL? 
ED2E 
BC25 
PES 
ECrsd 
8C:27 
BC: 
ECSE 
BDSE 
EC 1 
BC: 
EC4S 
EC 
MAIRE D 
ED 4B 
EHD4C 
Eh 
ECS Î 
BDSZ 
Es d 
EDSS 
ECS? 
BC33 
ÉDSE 
HSE 
AUS 
EDE 1 
Les: 
BRAS 
EDÉ 
BCE 
ECÉSE 
ECEC 
BDÉE 
BG? 1 


0 MI PE ON BR fo 
4 Si 


Qi BC ER 
LM 


BE DUMI 
TNT TI 


LT 
=} 


ce 
Cr 


Fo mes Ni OM LP 
DOI UM 


Er D MR LT IS 
For B Col DB M TL 


#4 


THCE 
STE 
STE 
LOC 
ST 
TFF: 
LCR 
AL 
ALOE 
ADDED 
TFF 
LDx 
LD 
JP 
TST 
EHE 
FSHS 
LÉESF 
PLILS 
STE 
LE 
ISF 
LCA 
TH 
LCE 
STE 
LED 
EG 
CLP 
CEC 
ÉEU 
LSRH 
FOFE 
FOR: 
BF'A 
ETC 
LCA 
STA 
LDE 
LCA 
FSHS 
DFA 
TST 
EE 
STA 
CL.F:A 
STA 
PLILE 


cp 9 

Bar 
SESrS 
Co 1651 
# D 


REC 


Nouvelle ordonnée y 
N° sprite D 
324num. 


Début zone des GR$ 
(U—2) sur 1°" GR$ 
XX 

y—+Ÿ 

T07: adr.dans écran 
Sprite actif ? 
Non—suite 
Sauvegarde 
Restaure décor. 
….êt efface sprite 
Adr. dans mem. écran 
Adr. zone forme-»Y 
TO7: mem.forme 

16 lignes à traiter 


Nbre. décalages+1 


1 segment GR$-D 
Dans bon ordre 
Pour décalage 


Décalage terminé 
Décalage (3 octets) 


Boucle 
Range sprite décalé 


3 octets à traiter 
1 octet de forme 


Sprite U écran—A 
Octet sprite vide ? 
Non—suite 
Remplacé par écran 


Â—zone couleur 
Forme sprite-A 
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BDY3 
EL Es 
ELU 
EDTH 
BDTE 
ED 7E 
BLS164 
EDS? 
ECre 4 
BDEE 
ECSE 


ÉCDHIL 
BDAE 


ELEE 


BCE 1 
BDE: 
ACBE 
ACES 
BCE 
BCRC 
EEE 
ETC 
ROC 
BCE 
HDCS 
CCE 
BDCE 
RCD A 
BCE 
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en © 
= 


6 
Vire TEL 
LONG —j QUE] 
ir 
— 


oO & x 
ui 
CO 


La + 


F5 


DNNNSeNNR Tin 
{ei (4 + 
CC Lo 


Où FT A CS re (5 0 OFF 


Lei es Qi DER I D Mt UN 
NU TE boire HR D Lt 


Fi 
CE à 


#4 
$BD7A 
$BFFD 


SELLE, 1 
Crea: 
E be er 
HÉCAE 
#9 11 
À fon bar 
HS 
GE PLUS 
SÉMSE 


BUUIE 


1 
SECHE 
=] » #, 


##3S 


L bel=t 
a+ 


SEL 
AP 
bar 
SÉCSE 
ESA 
BÉCE 
SM 

E “tel 
BFAÉÈÉ 
Cat 
Er 
gFiéi 
#9 101 


€ ba br 
4 
ST tr 


Collision avec formes ? 
Non 

Oui=@-$BFFD 

3 octets traités ? 
Non—boucle 

ligne suivante écran 
Terminé ? 

Non=—ligne suivante 
16 lignes à traiter 
pour couleur 


Sélect.mem.couleur 
Couleur sprite… 


bits 5,4,3(forme} 


3 octets à traiter 
Couleur écran—A 


Pas de pts.du sprite 
Garde couleur fond 
Couleurs fond+forme 
A-ton U=FF ? 
Non=—terminé 
Couleurs écran—A 
Garde couleur forme 


bits O,1,2(fond) 
Couleurs fond+forme 
Rangement couleurs 
3 octets traités ? 
Non—=boucle 

ligne suivante écran 
16 lignes traitées ? 
Non=ligne suivante 
Oui 
Permut.écran-zone 
Abscisse précédente 
Ordonnée précédente 
TO7 :adr. dans écran 


Âdr.zone 96 octets 
TO7 :mem.forme 


16 lignes à permuter 


2 octets écran 


EEiLd EC He LEE st 2 octets sprite 
ÉDCE EF H1 STLI aT++ 

ECCE EC id STD Re 

ÉCCA AE 92 LCA si 3° octet écran 
BLLIC EE H4 LDE ui 3° octet sprite 
BCLE. He HE STH aT+ 

RDE Er Ra STE APE 

ÊCE RIT SOS LEHX 4H. Ligne suivante écran 
ÊTES Eat BF A CFE HS di Sort-on de l'écran ? 
BCE cd 14 FHS $SECEE Oui=terminé 
ELLE F1 a nr CEC Lu tai 16 lignes traitées ? 
ECEC LÉ Ed EE SEL Non boucle 
BGEE FE EFCA LCR SE LS 

BDF 1 44 LSRA BitgC 

EDF Z 4 ñ7 EHS SELFE C=@=terminé 

FDF 4 T EFCS CEC EPL Sélect.mem.couleur 
ECFY AE 5 LC BE 

DFE “E Er BF'A SÉCCE Perm.coul.écran-zone 
EDFE 31 RTS 


REMARQUE: La routine devra être légèrement modifiée pour le TO7-7@: 
adresses de gestion déplacées éventuellement, adresses $F966 et $F161 
du moniteur à remplacer par $EF16 et $F328 :$F966 place dans X l'adres- 
se de l'octet de la mémoire écran contenant le point de coordonnées {X, YŸ): 
$F161 envoie 1 dans le bit 9 de $E7C3, ce qui sélectionne la mémoire de 
forme: voir 2° partie). 


5. Mise en œuvre 


Tous les sprites doivent être désactivés au départ ; ceci sera réalisé en ajou- 
tant une instruction JSR DESACT dans le sous-programme d'initialisation, 
DESACT($BCAS8 ici) étant l'adresse d'une petite routine initialisant les 
poids forts des ordonnées ($BEC2, BEC6, …, BEFE) avec une valeur non 
nulle. 


On utilisera pour celà les instructions suivantes: 


BLRE SE BELZ LC HSEEC: Ordonnée 1° sprite 
EME SE 1F LOA h$iF Pour compter 
ÉCHD Hé 5 1 STA ont 

BCAF 4H CECH Terminé ? 

BLE6 26 FE BHE SBCAD Non=—continuer 
BCE Z 33 KTS Oui 
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On ajoutera donc au programme de création les lignes suivantes: 


1 CHTH EL"; ELHE “Resactivation sPrites 
AA CATA SPRITE, SHBUAS.SE.RELZ. 86, 107.51: 4h,26,F6, 353 
14 DATA 26, FE. Bssuuss 203,38, FIN SPEITE 


Enfin, on ajoutera en 2999 le nom (SPRITE) et l'adresse ($BCB3) de la 
routine. 


6. Exemple 


Après sauvegarde (SAVEM ‘’ROUT”’, &HBAQ1, &HBFCC, O) de la routine 
accompagnée de l'initialisation et des tables de noms, on pourra animer 
l'hélicoptère précédent par le petit programme suivant: 


496 CLERAR., SHBSFF, 12: LOAGH CROUTM:EXELEHEAAT 
di LEFGRYE 11 02225, 248,2,4,31,188, 113, 2er 
42 DEFGRSE LH RES, 2, 65, 287,14.192, 136.66 
43 CEFGREE Ne 127,282, 6, 4, 0,61, 0 

454 CEFLREE 6 2=û. 4, 0.8,5, 4,40. 

549 ‘=RHDE 1 #18: CeRHDe LS 

514 FOR «sd T0 À STEF —-£ 


S2g SPRITE EC 4, "2,0 
529 IF PEEKCEHBFFC=8 THEM BÉEF ‘Collision 
Sdë FOR Iz1 TO SW :HEXT ‘Ralentissement 


And HET: DUTOSEE 


On constatera que l'hélicoptère se déplace sans effacer les formes qu'il 
recouvre dans son mouvement; toutes les “collisions” avec l’une d’entre 
elles provoquent ici l'émission d'un “bip” sonore, bien sûr sans que le 
mouvement soit stoppé. 


Enfin, la couleur du sprite change à chaque trajet. 


II, Application aux jeux d’action 


Nous donnons ici un exemple simple, que l'on pourra compléter à loisir: 
sonorisation, dessin de nuages dans le ciel, effet d'explosion, contrôle du 
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second hélicoptère par un second joueur {voir la routine transformant le 
clavier, dans la 4° partie}, etc... 


Le jeu consiste à lacher une bombe (par appui sur une touche quelconque 
du clavier), qui tombe en chute libre selon la parabole normale: elle doit 
atteindre l'hélicoptère qui passe en sens inverse dans le bas de l'écran. 


Le programme utilise 4 sprites différents, le 1°" et le 4° étant associés pour 
créer un motif (hélicoptère) de 32 x 16 points: on notera à la ligne 276 la 
désactivation initiale du 1°’ sprite, ce qui permet une animation correcte du 
motif. 


Le programme est le suivant: 


18 CLERR: ÉHESFF. 16: SRE EXECENABHDI : CLS 
LE DEFGREE Ter, 268, 73 69: 0, 9 À 

39 DEFLREE 2 = G:15,198, 19, 244,68, IBACELCE 
45 DEFGRSE Les, 255,83, 299, 112. bus, 24. 
54 DEFGRSCG 12197, 15.4,15, 6, 1:64, 1% 

69 DEFGRSE Fos, 4,5,4,5, 254, 15,285 

FA CEFSRGC 6 123, Li, 5,0, 14, 5.1.6 

F2 DEFGRSC S 24. 4,0. 06,4,65,64.4 

F4 DÉFLRSE à 10,4, 4,04,06,4,4.8 


mi" 


59 DÉFLRSE 11 22258, 48, 20,31. 192,11: 227 
164 DEFCRSC 14 2ES, 264,63, 227,18 192156: 66 


184 CEFOSRSCOS 1212, 260,44. 4,0,4,8 

119 LEFGCRSES 1e, 6,4,0.4, 4,84, 

129 DEFSRPE 15 22285, 209. 290, 20, 112,4.11€,6 
154 DEFGRSE 14 22285, 192,255. 192, 192,248,192, 24e 
144 DÉFGRSC 1342192, 12,192, 12,268, 248, 298, 246 
158 DEFGRSC 12 12255, 132, ? os 1924, 1932.4,13E 

195 SEzA:FOR HTIRZ 6 TD 13 

200 AS=<INHKEYS:SFRITEN-S @, 56 5: CLS 

“14 BEEF:LOCATEX, G. 4 COLOER , 3: FRINTÉSOURE "SC: "SUR" 
TIR: LOLORFS, 6 

Se VJSCRAERNDE 1 +14 

2.34 YCSRHDE 1 1€50+139 

24 vez Ti+i8:TIF=A 

Ag FÜR 4Jsÿ TO 288 STEP S4RNOE 1 1e 

CHU AJÉ=X I+HIB: IF TIR =A THEH TIRs=i IHKE TEE UM UK. Hé ELSE 
TE=TB+TIR: TIR=TIR+.1E 

BP SPRITER: ESPRITES EE IE, Ni: SPRITER-C EL, TT: SPRITEL-L ES 
+, TE 

co IF PEEFRCEHBFFL 1 THEH SPRITEZ-C 5344-42, L''HEMT Xl 

244 SPRITEL:SPRITEZ: SPRITES: CLS 

SG IF YÉSLFS CR TBLLIA GOT dd 

499 IF KJ:28h4 GOTO 54 
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EN Ct 


Eu 
ad 


Cat Lei Eat ed Eat oi Qt at Gt 
D "Jj in BR Lo Pois La 
D © D 


Lux 
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SLREENEÉ , 1:1:50=50+1 
FÉIMT:PEIHT:ATTER1I, 1: PRIMT'TOUCHE,, . ":ATTREA. & 
BEEP:FUR 126 TO 15G4:MNEXT 

SCRFERHd,E,6 

HET HTIR 

BÉEP : LOCATER, 5,8: PRINT'SCORE :": SC; "SUR: HTIR 
PRINT: PRIHT:IMPLT'UHE AUTRE PARTIES OG-N5 "5: 4% 
IF HS "0" GÜTCI 4 

END 
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Résumé de la 
troisième partie 


Nous avons donné un programme BASIC permettant de créer un nombre 
quelconque de fonctions ou instructions nouvelles, que l'on peut utiliser 
ensuite exactement comme celles d'origine. 


Nous avons présenté alors un certain nombre d'applications permettant 
d'utiliser : 


— les fonctions FNR et FND de conversion degrés-radiants, 

— les boucles WHILE..WEND, 

— instruction INC d'incrémentation rapide, 

— l'instruction SWAP permutant les contenus de deux variables, 


— les instructions CALL, PROC et ARG permettant d'écrire des procé- 
dures à variables (ou tableaux) locales, la récursivité étant permise, 


— l'instruction SPRITE permettant d'animer des objets programmables 
entièrement définissables (taille, couleur, motif). 


Nous donnons ci-après le listing de tous les DATA correspondants, à écrire 
dans le programme de création. 
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Rappelons que l'on pourra bien sûr écrire d'autres instructions, en s'inspi- 
rant des mêmes principes : on veillera particulièrement à prévoir toutes les 
possibilités de mauvaise écriture, ou de mauvais emploi, afin d'éviter tout 
blocage possible du programme BASIC utilisant ces nouvelles instructions. 


Pour ceux qui voudront adapter à d'autres ordinateurs les notions 
présentées ici, nous nous sommes efforcés d'être le plus clair et le plus 
général possible: c'est ainsi que pour chaque application, nous avons 
donné le principe général, puis des explications sur la réalisation et le fonc- 
tionnement de la routine : celle-ci a ensuite été commentée instruction par 
instruction. 


Nous pensons donc que l'adaptation se révèlera rapidement simple. 


Listing des DATA: 


1 CAT dr HEHO 1. CE. BA, FD. 2 

1/1 CATH  EHFA, FC 824, CS, GIE FOREST 

115 DATH Bt BLHE: 

124 CATA CC. EF13, F0 CA 7 , 6. FE. BP, BCE, Gé, FES EP és 
F8. C3, 86, FO.ésfd, 39 

JS DATA &E. BF. EG. Hi cui PE, CF TE CES. FIN 

194 

1495 ‘houtines 

SA DATA Fonctions. ÉHBH4G, 90,62, :54, 2, SU, RE, EC, FDE, EC. E 
BCE. ÉD, CS 1. CC. FPBSE. CE. 95,6, ED, CE, FASO Er SE 2, 81, 92 
2:34: FE. 2SR6é., 51. dd, sé MirE. 36, PE, FFE FIH 

LAN 

2 1 NA LATE LIHILE-MHEHC. a te éciCe, + ED. 556, CE. B9.,SE 
, 2. Sd. 06, Eli LÉHL.GE, FE. 9 20. 90. EX. DE. ES. SE. MF, 34. 48, E 


21 12 DATA Mes Beta ME til: 3 sr Bree 0. HAE. SF, 
HS, EC, SIA: BC ICS, Er, PA. ES. OF, PC, FE. CHEÉCORE. 61, 2867. 
PE. 1669. FIM HEHD 


ai le Le 

ee AS AalEE INT, LMEMHÉS. BC. ia CFE, SD BE. Dé. 11.86. 2250.89 
Fr, UE, A, 5 GE FAC, BC CAS, CSS, 4, E . 36, . sd 2: A0, CH, ED. 
AT BG, 2S)MA.SE, PF BU à Midi h, HE, md, RS, LA 


SC 2,60. 1AGF, EL. 2900, 7E, 1526,FIH 

“295 

AA DATA SAP, EHBAFE, BC, AA PE LADE SF, 98, S.SE. SD, 3% 
4,12, 60, r3r: 30, CH. BD. 606, 96,5, 42,46, 12 46,2%". El. Fi, 
1F:41: 22 SES ss 42, DE, SO SP SF. ED Sd, SES, SA FIM 

CCE Der 
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48 DATA CALE. LHBBS, Ce, P, BL SE GE, 22, 6F. BFFE. LGSE. ES 
Peut, GB. 3. te, 80. BE. BD éFDO, EU, FER, Ce. 6, ÉD. 556, SCCE 
1 Ha rs ls 1 0 C6 6 A0 08: SH, CA, 24, 23, 60, SH. 86, 5, 1F. 
AMSRECFES PET ES, 54 12.9F. SF IF, 14. 80, 797, 2ME 

445 DATA 90.682,06. AE. 90. 09, 00, 2F.27, 2.2, 80: 24. 1e. . 


Æ Mi - LC 


S on 


881,29 27,4, SD, CH: 20, EL DE.IE, IAE, 24. 1F.41,0L0,80,83 
Paire. 66, Ci, 4, ZSE, fe EC,EFFE, 6, 34, ia 29: FE: 2HE D 
4 1 4 DATA S0.BS,641.64,26.6,96, 1.97, 7.30 62 EC. 448. De, 7, 
27,6, 40, 27,2, PA BFFE, DE. SF, 7. SD, 39 FIH CALL 
SA CATA FRIC, LHEECE. 81.84 27, 60.60, É6 55,44. 39:26:81 
CD, 2r, HP Léa ll: FE: 35. dd dE, ES. : mé SE: 34 gl ; QE,CE, SF, 1E: 
F. 24, 0. BE. 27,21. EE. AS. AS. AE: Sd.BF, 4,2. E1. EC. ACELEE, 
LIFE. DD, 28, ED. SSH 
14 CATA HEC, 47.534,93. 2. cn FE 21e. SF.3F.:54. 


Î CIRE 
HE. HZ, ZE. BF. le 25,c,1F.:1:.60.8h5 25,2: 44, 
Fu , 35. 24, GAL. EF: 7,4, 40, CA: CA Ed, 7E, TES 

Ps 


1 DATA db, BE, 27.109,86 FE GT, SF ED CF IF, ls dé 


RE M fils Pa Pat Pis En Dit Ë Du Li = Fi 


ee 

1,01.rra, Es 1746 OF ES, IGME. Ed. 17, FPS 270 18. EF. AS RE 
HZ, Ed, dd, 26: 29,1F.16.E3. 84,00. 57. AE. EG. AT. CA. 90: 87.85. 
FH, CA, 19 EE AS OP, SF. 1193, 82, dE à. LFP, 532, 26, 0. EP, 4645 HE, 
A2.:34, 20. BD, 734,95, 4 
26384 DATA 9062: 1AAC. ES, DES SE Péc iF 4 9E01E. SF. Es, 14 
3F +26, DF. IE HE. Ed, CE EU. FIN FRQC 
LOS 
26 DATA SPRITE, LHECAS, SE. BECE. 86. 1F0 47.41, 4, 26 FE, 53 
F6 DATA SE. FF. 67, FFE, BD. #15. 80. 709, 80. EBE. 54: ne. 
) L1ARE. MCS. BD SE EC. él C1, F5: 3: "ECS. 56, 6 03, BEC, 
Of, 63, 50. SC, CD, 65. A6. 62. C6. 661. 500 05. 648, OCDE 
sn DATA do du Fetes DD. S4:25.12.81.08,2 
ao 7, AEF EC. MFEIÉS 
RSA DAT FC.ESFE ED: A FLiétre 
ED. SF61ES. 1F. 1,56. 24, 30, CE, 21. 004, SA. IF.SÉE. 6806. 1M6E 
1 60r6: EC F6. DSC. Zéi 66, 17,486 32, SE SP, 5, ÎAW9E, 6 
“Bb.Fi61.86.1,97,35 
sd LR Dé. 5e. CP Sr EC CS IE SF Of Horse dd. sé, 
£ 4, 20. F6. ECC Ad, 36, SH Hi 2 Ce. 2 A6 Hd 54, 2. HA: 54, CA 
M Les ES FAT MES. US 2, A4. 60, Er 8 FF BFFD. SH SE 
4, 30, 8828 . MS LR à A À 

26Sà DATA 26, 189795, 0,56, TR ECS. BG. 6G3S. 46,48, 48,47 
sé Cé: 36.88.60. Ad, 2rilliBd, C7. 04,86. EC dE 2 AE, 1F 
md. us. dé, dd, dé, 3, 56, 47, HA. SA cé Ed. GO, SES. 4, 55, 6. CE 


36 4 26. À 


à , 

AE, | 
LéRd CATA SE. SH, LOSE. SL. BC FSéES. SF SS, LROE. ET. BC FISL.E 
6, 14,97, SEE. Sd. EC, Ad. EF. A1. ED. Sd. A6. LEE. Ad. AT. AMLET. 
2. eee, OC. Or fi ré, dE BE EPUS. dd, 2, 7, PACE 
CS, SE. SE, 24.03.39, FIN SPRIÎTE 
AA CATA FIN des routines 
2444 DATA LIHE, SHBAES. SMF. LHENFE, CALL. LHBESE, FRIC. LMHEBETC 
LL Mis EHPFFS, SPRITE., LHRCESZ.FIH 
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Résultat de l'exécution du programme de création: 


ROUTIHE Initialisatione 
Cetuit : EH Fi: EME “one: FISS 


PBONITINE Fonctions 
Cher : Hd Fin: BHELC somme: dus 


ROUTIHE MHILE-HMEHC 
Detuit. : ÉHFA Fin:ENES Some: relS 


ROHITIHE TITI 
Cebuit : FHES F1: EF Monte : Lt 


ROILITIHE SURF 
fiebuat. : EAFE Fun: EFET Lorie: ddr 


FENITIHE CHLL 
Debut : EE Fin:EÉBCE sons SFr 


R'OILET THE FAUIL 


Crekuit : ERCE Fin: ECHE Somme: SR 


FOUITIHE SFHITE 
Cébot : CHE Fin:EDFE mon He lS 


[ep lantation teétminmee, .. 
Evresistrer. de EMI a BFCE Far CHYEM à 


Cas du TO7-70: 


Les valeurs soulignées seront remplacées par EA24 à la ligne 2290, et par 
EF15 et F328 aux lignes 2630 et 2669: voir pages 110 et 141. 


REMARQUE: Toutes les adresses d'implantation données en tête des 
routines seront changées dans le cas du TO7 de base (fin de la RAM en 
$7FFF), et éventuellement aussi pour le TO07-79 si on veut bénéficier de 
toute la mémoire disponible (fin en $DFFF). 


On veillera alors bien sûr à modifier la ligne 2996, ainsi que les adresses 
écrites dans le sous-programme d'initialisation (et en narticulier aux lignes 
1729 et 1739: voir les remarques du chapitre IV) et dans les routines 
correspondant à CALL et SPRITE. 
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Quatrième partie 


AMÉLIORER 
LES PERFORMANCES 


Nous avons vu dans la 2% partie qu'à chaque rencontre par l'interpréteur 
d'un nom de variable ou de tableau, il y a “balayage ” des zones correspon- 
dantes jusqu'à trouver le nom en question. 


Il en est de même pour les étiquettes de branchement, recalculées et 
recherchées dans le programme à chaque fois. 


Il en résulte évidemment une chute des performances par rapport à celles 
qu'offrirait un compilateur, où tout ce travail {et toute la traduction en 
langage machine} est effectué une fois pour toutes, préalablement à 
l'exécution, 


Par contre, ce mode de traitement permet un travail ‘conversationnel" 
extrémement souple et agréable, puisque les modifications d'un 
programme en cours ds miss au point sont prises en compte immédiate- 
ment, chose évidemment impossible avec un compilateur. 


Toutefois, un programme avant été mis au point, il devient complètement 
inutile dé bénéficier de ta possibilité précédente. 
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Nous proposons donc une méthode permettant de compiler au fur et à 
mesure de l'exécution les adresses des variables, ainsi que les branche- 
ments et les valeurs des constantss, 


Notre méthode opère automatiquement à partir du programme écrit 
normalement, et c'est en principe sous cette forme que celui-ci sera 
conservé sur bande ou disquette; la compilation n’est mise en œuvre qu'a- 
près exécution d'un sous-programme d'initialisation, le programme 
pouvant bien sûr étre modifié à volonté auparavant. 


On constate donc que les contraintes apportées par Cette compilation 
interactive” sont minimales ; le résultat est une vitesse d'exécution prati- 
quernent doublée. 


Toute application qui “tourne” verra donc ses performances très nette- 
ment améliorées par l'application de notre méthode, mise en œuvre par un 
simple EXEC écrit au début du programme. 


Nous parlerons aussi dans cette partie de l'adaptation (toujours possible) 
de cette méthode à d'autres micro-ordinateurs que les TO7. 


Enfin, nous commencerons à voir comment modifier l’action du clavier des 
T0O7, dont le mode normal de fonctionnement est tout à fait inadapté à 
certains cas {jeux en particulier). 
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1 


Modification du 
fonctionnement 
du clavier 


Tous les jeux opérant en “temps réel” se présentent sous la forme d'une 
boucle, dans laquelle on lit le clavier ou les manettes de [eu ; en fonction du 
résultat de la lecture, une action (dépiacement d'un objet per exemple} est 
effectuée et ses conséquences analysées (collision où non...), après quoi il y 
a retour au début de la boucle. 


Le clavier des TO7 est malheureusement très mal adapté à ce type de fonc- 
tionnement puisqu'an cas d'appul continu sur une touche, il y a en perrma- 
nence décodage de celle-ci, ce qui provoque à chaque fois une temporisa- 
tion et l'émission d'un ‘’bhip” sonore; celà est désagréable, et ralentit 
surtout énormément le déroulement du programme. 


Nous allons voir qu'il est facile de supprimer cet inconvénient, à partir des 
observations de la deuxième partie. 
I. Suppression de l’action du clavier 


lt est possible de supprimer les “bips” émis en rafale en cas d'appui 
continu sur une touche en intervenant sur le registre de contrôle $E7C1 du 
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port P du circuit 6846 du TO7: il suffit en effet de faire pour celà POKE 
&HE7C1,9; réciproquement, POKE &HE7C1,48 permet de revenir à la 
situation normale. 


Pour le TO7-76, il suffit de mettre à 1 {par POKF &H6073,1) le registre 
BUZZ du moniteur. 


Ceci ne résout pas notre problème, puisqu'il y a toujours décodage des 
touches appuyées et temporisation, d'où ralentissement très sansible de 
l'exécution. 


Or, on a vu dans la 2° partie qu'à chaque nouvelle instruction du BASIC, il 
y a appel en $2AF0 de la routine $32BB de surveillance du clavier: celle-ci 
commence par un appel de $6294, où on trouve 3 octets disponibles {voir 
3° partie}, le premier contenant RTS. 


En $6294, la pile S contient donc l'adresse $2AF3 (retour de $32BB), puis 
$32BE au sommet (retour de $6294): si on dépile cette dernière adresse, 
un RTS provoquera le ratour directement en $2AF3, sans exécution de la 
routine $32 BB. 


Pour supprimer la surveillance du clavier à chaque instruction BASIC 
exécutés, il suffit donc d'écrire en début de programme: 


POKE &H6295,98 :POKE &H6296,57:POKE &H6294,5ÿ 


Ceci correspond en effet à LEAS 2,S/RTS. 


On remarquera que ceci ne modifie en rien le fonctionnement des instruc- 
tions INPUT et de la fonction INKEYS, qui restent donc parfaitement 
utilisables. 


REMARQUE 1 : Il faut modifier $6294 an dernier et non en premier, car il y a 
appel de $6294 entre chaque POKE, d'où ‘’plantage”’ si on commence à 
implanter le LEAS avant d'avoir implanté la partis adresse. 


REMARQUE 2 : Les touches STOP et CNT/C ne provoqueront bien sûr plus 
l'arrêt du programme, qui devra être éventuellement stoppé par la touche 
“Initialisation”; ceci ne comporte aucun inconvénient (taper le “1” du 
menu pour revenir au programmes), 

Pour revenir au fonctionnement normal du clavier, on fers un simple: 


POKE &H6294,&H39 (code de RTS) 
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Exemple d'application 


Dans la boucle d'un programme temps réel, un INKEY$ ou INPUTSin) ou 
INPUT fonctionnera exactement comme d'habitude, mais le clavier ne sera 
lu que lors de l'instruction correspondante. 


En cas d'appui continu sur une touche (par exemple pour un jeu devant 
déplacer un mobile : raquette, ou vaisseau spatial, etc..), il n'y aura donc 
plus le ralentissement de l'exécution, et l'émission des “bips” en rafale, 


Nos seuls trois POKE rendront donc beaucoup plus agréable l'utilisation de 
tous jes programmes de ce type. 


I. Jeux à un ou deux joueurs par le clavier 


1. Le problème 


Nous allons traiter lé cas où l'on désire pouvoir déplacer un mobile à partir 
du clavier, 2 joueurs pouvant jouer en même-temps, l'un avec les touches 
de déplacement du curseur, l'autre avec les touches À,Q,S et W situées sur 
la gauche du clavier. 


Pour jouer à partir des touches de déplacement du curseur, on doit norma- 
lement écrire: 


AS-INKEYS:IF A$-°’" GOTO «1 
ON ASC(A$)-7 GOTO à 2,a3,&4,«a5 


Ceci ne permet pas les déplacements en diagonale et le jeu à deux joueurs, 
et est sensiblement plus lent que le simple: 


ON STICK(H GOTO... 


que l'on peut utiliser avec les manettes de jeu. 


Nous allons donc écrire en langage machine une routine appelée par USRO 
et retournant exactement les mêmes valeurs que l'instruction STICK: on 
pourra donc remplacer toute utilisation de STICK par le simple mot USRO, 
permettant de se passer des manettes de jeu, avec un fonctionnement et 
une rapidité exactement équivalents (au prix il est vrai d'une manipulation 
un peu moins agréable). 
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Les déplacements en diagonale seront simplement obtenus par l'appui 
simultané sur 2 touches : par exemple, ? et —, ou À et S, correspondra à un 
déplacement selon 7, codé 2. 


L'appel du USRG{9) correspondra au décodage des 4 touches de déplace- 
ment du curseur: l'appel de USRO{x} avec x:£9 décodera les touches À,0,S 
et W logiquement disposées, c'est-à-dire À correspondant à ? , Q à+-., 5 à 
et Wà1. 


Les valeurs retournées (les mêmes que par STICK) sont les suivantes: 


: 

547,2 

7 03 

6“ ,%4 
E 


2, La routine 


Le décodage des touches utilise l'organisation matricielle du clavier, vue 
dans la 1° partie; si on place par exemple la valeur &HFB en $E7C9, le 
bit 3 de $E7C8 sers à @ si la touche Q est appuyée, etc. 


La routine est la suivante : 


80:59 BD 2403 JSR $2403 Conversion argument 

6033 = LEA FE LDA #SFE 9-#Ht@[TO7) 

BDSS B7 E7CS STH sEr7Cs e 

BD38 CC Ge08 LDD #6020B 2=FD 

8C3B SE b06G LDX #$00008 

BÜSE D 50 TST se Joueur à droite ? 

BD4G 26 GE BNE  SBD4f AQW ou $ 

BDé2 90 32 BSKR $SB0r6 Si ? 3x 

BC44 SD 30 ESF  $BD/E Si, 7-X 

BD4é SD  2E BSR  $BDP7É Si 4 ,6-X 

BD4S 20 18 BRA SBCSA lecture de 
4f DECA 1=F£ 

BD4B CE a7 LDB #607 

BD4D 8D 27 BSR  $H076 Si W,5=X 

BD4F CC 290E LOD #hS200E 20=DF 

BDSe ED e2 BSR SED76 SI A,3-X 


ED54 86 08 LDA  #Ssuë6 8=F7 


BDS5E 8D 23 ESR  SBD?E Si O,7-X 
BDSE CS OS LDB +105 

BDSA 80 0089 CMPX #Ssp999 

EDSD 26  Bè BNE seD61 

BDSF 34 18 LEAX -8,% Si f ou A 1X 
pRe D 13 BSR seDre Si + ou S,3-X 
BDESZ3 1F 10 TFR *: D 

BDES 54 LSRE 1 ou 2 touches ? 
ADE6 24 g1 BHS sEDéS 2 touches 
8D6S 59 ROLE 1 ou 3 touches 
BDe9 C1 a8 CPE HSUE 

BDEB 23 A1 BLS SBD6E 

BDED SF CLRB 3 ou 4 touches 
BDéE CL “T4 STD #57 

BD70 56 2 LDA #s02 Type entier 
BD?72 SE 6155 LDX #56155 Adr.AC.fottont 
&D75 33 RTS Retour au BASIC 
BD7S 1H a1 ORCC ##01 1=C 

BD7E 79  E?7C9 ROL  SE/EÉ9 Ligne auivante {TO 7) 
807 CO 62 SUBB #s02 

807D bS E?7C6 BITH SE7CS Touche lus appuyée ? 
8D86 26 6e BNE  $SBDS4 Non appuyée 
BDSZ 36 85 LEAX B,Xx B+X-X 

BDS4 49 RTS 


REMARQUE 1: En cas d'appui simultané sur trois touches (ou sur les qua- 
tre), il y a retour de {a valeur @: il en ast de même si aucune touche n'est 
appuyée. 


REMARQUE 2 : Pour le TO7-76, il faut placer une valeur de @ à 7 sur les bits 
9, 1 et 2 de $É7C9 pour sélectionner une ligne du clavier: on devra donc 
modifier $BD34 (valeur 97 au jieu de FE) et $BD78 {DEC $E7C9 au lieu 
de ROL $SE7C9, c'est-à-dire 7A au lieu de 79). 


3. Utilisation 


La routine précédente sera Implantée dans un programme devant utiliser la 
lecture du clavier en écrivant au début de celui-ci les instructions 
suivantes : 


14 CLEAR, RHBD0G : DEFUSRO=EHEDSE 

26 POKE 8&H6295, 98:POKE &H6296,5r:PÔÜKE RH6ZS4, 50 

38 FOR I=64HBD36 TO &HEBFFF 

aÿ RERD A$:1F HSC>"FIN" THEN POKE 1, YALC EH" +8 37: NEXT 
2668 DATA BD, 24,03,86:,... 20, 65, 33:FIN 
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REMARQUE 1 : à la ligne 2996, les adresses ($24C3, etc...) devront bien sûr 
Btre écrites octet par octet. 
D'autre part, l'adresse $BD36 écrite ici est pürement indicative. 


REMARQUE 2 : si on désire économiser de la place en mémoire, par exemple 
pour la TO7 si on ne dispose pas de l'extension, on pourra mettre les DATA 
en tête du programme {lignes 19, 13 et 16) et implanter la routine directe- 
ment dans lies DATA eux-mêmes en écrivant: 


SR DEFUSROESHESFA: FOR ISRHESFA TC LH?FFF 


4, Autres possibilités 


Les instructions précédentes permettront d'utiliser USR@II) exactement 
comme STICKI(I), les deux joueurs pouvant donc jouer simultanément, et 
indépendamment bien sûr | 


On pourrait de même créer très facilement une routine appelée par 
USR1(I), lisant par exemple la touche ENTREE” pour le joueur @ et la 
touche “RAZ” pour le joueur 1; on pourrait ainsi remplacer exactement la 
fonction STRIG lisant l'état des boutons de manettes de jeu. 


Pour celà, on enverra la valeur & HFD (06 pour le TO07-7@) en $E7C9; 
selon la valeur de l'argument du sous-programme, on lira ensuite le bit 3 
(touche RAZ) ou le bit 4 (touche ENTREE) de $E7C8. 
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p 


Recettes classiques 
d’amélioration 


des performances 


En suivant les quelques conseils donnés ici, on pourra ‘’sans effort” 
accroître sensiblement la vitesse d'exécution d’un programme, en général 
d'environ 19 à 15 %. 


1. Écrire en début de pragramme les variables les plus souvent utilisées, 
en leur affectant une valeur (et non pas en les écrivant dans un calcul: voir 
2° partie) : elles seront ainsi créées au début de la zone des variables, et 
donc trouvées plus vite à chaque utiisation. 


2. Utiliser des variables sntières (définition DEFINT) chaque fois que celà 
est possible; les calculs sont alors beaucoup plus simples, et donc plus 
rapides. 


3. Utiliser l'instruction INC de la 3° partie pour tous tes calculs du type 
=X+expression. 


4. Remplacer les constantes numériques souvent utilisées, et comportant 
3 chiffres où plus, par une variable (CT1, CT2, etc...) : ceci évite de répéter 
le calcul de ia constante, relativement long puisqu'effectué à partir des 
codes ASCII de chaque chiffre. 
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5. Essayer d'utiliser des boucles FOR ou WHILE (avec la routine de la 
3° partie} au lieu de IF ou GOTC. 


6. Utiliser ON au lieu de IF, 


7. N'utiliser que des variables simples ou des tableaux à une seule dimen- 
sion, ceci étant en principe toujours possible ; la recherche d'un élément est 
alors nettement plus rapide. 


Un tableau à deux dimensions Afn,m) sers donc par exemple remplacé par 
le tableau B {(n+1)s{m+1)}-1}, dont tous les éléments B{K) pourront être 
atteints ‘ligne par ligne” par: 


FOR I=8 TO n«(m+1) STEP m:FOR K=l TO l+m-1 


8. Ne pas écrire dans la mesure du possible la variable de contrôle d'une 
boucle FOR après le NEXT : ceci permet en effet d'éviter la recherche de la 
variable à chaque passage par le NEXT. 


On notera enfin qu'optimiser la vitesse d'exécution d'un programme 
conduira souvent à augmenter son occupation mémoire, et inversement |... 
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3 


Compilation 
intéractive des 
adresses de variables 
et des constantes 


Lorsque l'interpréteur rencontre une variable dans le programme, il 
recherche celis-ci dans la zone correspondante, située juste après Île 
programme lui-même: s'il ne l'y trouve pas, la variable est ajoutée à la fin 
de la zone, après déplacement de la zone des tableaux {ceci dans le cas 
d'une affectation ou d'un FOR, etc...) 


On peut en déduire qu'une variable créée en mémoire n'est jamais 
déplacés lors de l'exécution, quelque soit son type (numérique ou chaîne). 


À partir de cette observation, nous allons voir qu'il est possible de ‘’court- 
circuiter”’ la routine $A48 de recherche d'une variable ;: on obtiendra ainsi 
une amélioration des performances beaucoup plus nette que celle que l'on 
peut obtenir par les seuls moyens précédents. 
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I. La méthode 


1. Principe 


Lorsque l’interpréteur rencontre un nom de variable, nous remplaçons dans 
lé programme lui-même le nom de la variable par son adresse ; celle-ci est 
donc compilée automatiquement lors de la première exécution de l'instruc- 
tion correspondante. 


Lorsque l'interpréteur rapassera ensuite sur la même instruction (cas d'une 
boucle}, il pourra alors aller directement à la valeur correspondante, sans 
aucune recherche. 


2. Précautions à observer 


Une adresse étant codée sur 2 octets, la compilation ne pourra être effec- 
tuée que si le nom de la variable comporte au moins deux caractèras, ou un 
caractère suivi d'un espace: déplacer la fin du programmes pour ajouter un 
espace déplacerait en effet les variables, rendant fausses les adresses déjà 
compilées. 


Nous avons vu d'autre part qu'on ne pouvait pas placer dans le programme 
lui-même les valeurs &H9,22,3A,89 et FF (à cause de la routine $66B 
cherchant la fin d'une instruction, et utilisée par GOTO,IF.FOR, etc...), ou 
&H8F81,8FAF,C481, etc. (routine $16AD utilisée par FOR ET WHILE). 


Il est évident qu'on ne peut pas non plus écrire comms premier octet d'une 
adresse une valeur correspondant à un code d'instruction: par exemple 
après un THEN, une adresse $8Gxx serait interprétée comme étant une 
instruction THEN END, d'où l'arrêt du programme! 


Enfin, l'interpréteur devra pouvoir distinguer une adresse (déjà compilée) 
d'un nom de variable non encore compilé, qui commence toujours par un 
octet contenant une valeur de &H41(A) à &H5A(Z) (les noms ds variable 
sont en effet toujours codés en majuscules, même si on les écrit en minus- 
cultes); une adresse ne devra pas non plus être confondue avec une cons- 
tante, où une parenthèse, etc. 


Finalement, le premier octet d'une adresse compilée ne pourra être 
compris qu'entre &H5D et &H7F; on utilisera en effet les valeurs infé- 
rieures à &H29 pour la compilation des constantes. 
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Le deuxième octet devra être différent de &HO,22,3A,89 et FF. 


SI une de ces deux conditions n'est pas respectée, la variable ne sera 
simplement pas compilée, d'où un fonctionnement ‘’normal”. 


REMARQUE: La première condition est toujours vérifiée pour le TO7 sans 
extension mémoira: ceci permet dans ce cas de simplifier la routine en 
évitant le problème du déplacement évoqué ci-après. 


3. Mise en œuvre 


Toutes les variables d'un programme ont une adresse supérieure ou égale 
au contenu a de $6811E (début de la zone des variables : voir 2* partie). 


Au lieu d'implanter l'adresse réelle y d’une variable, on implantera donc la 
valeur y+d, d étant un déplacement (négatif ici) égal à #$580@7—0. 


La première variable aura donc son adresse compilée par la valeur 
RH5B91, etc; bien entendu, une variable sera ensuite retrouvée en 
retranchant le déplacement d à l'adresse. 


Ceci permettra de compiler un nombre maximal de variables différentes, 
qui pourront donc occuper 9471 octets (valeurs de &H5BQ1 à &H7FFE, 
&H7FFF n'étant pas compilée à cause du FF): ceci correspond à environ 
1299 variables réelles différentes: ce nombre ne sera à coup sûr jamais 
atteint, quelque soit l'application, at la taille du programme! 


Cette constatation permet de se passer en pratique du test: adresse 
compilée <&H8909", et ceci même dans le cas du TO7-70. 


Le déplacement d sera calculé una fois pour toutes en début de programme 
par la routine d'initialisation de la compilation. 


4, Initialisation 


Notre routine, à écrire, devra remplacer la routine $A48 de recherche d'une 
variable: cette dernière commence en $A4D par une instruction JSR 
86297, adresse où l'on trouve RTS suivi de 2 octets inemnployés (voir 
3° partie). 


D'autre part, notre compilation va modifier comme on le verra le traitement 
des opérandes, c'est-à-dire la routine 8776 commençant par JSR $627C. 
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Le Sous-programme d'initialisation doit donc calculer le déplacement d, 
rangé ici en $SBFFB, et placer en $6297 et $627C des instructions de 
déroutement vers les nouvelles routines. 


Ces dernières ne deviendront donc actives qu'après exécution de ce sous- 
programme d'initialisation (par EXEC), dont le listing est le suivant: 


ED I LC BE3i LDD #SBE31 Trait. des opérandes 
BDüd FD 627D STD 6270 

SDS? Lé 97 LCB #57 Recherche d'1 var. 
EDGS FT 295 STD S62:98 

BLOC SE FE LDA #$/’E Code de JMP 


ÉDSE Bé GEL ST S$é2rc 
ED 1i Br 6297 STH #6297 


ED id CC 5691 LOD #S5B01 Première adresse 
ÉD1/ 94 1E SUBD %1E Début zone des var. 
ÉD19 FD BFFE STD SEFFE Déplacement des var. 
BD1C 33 RTS 


IH. Compilation d’une adresse 


1. Action de la routine 


Notre routine remplace dans le programme lui-même le nom de la variable 
cherchée par l'adresse y—y+d (si cette adresse est compilable), y étant 
l'adresse dans la zone des variables du prernier octet précédant le nom: cet 
octet contient en effet la type de la variable et le nombre de caractères du 
nom diminué de 1 (voir 2° partie). 


Lorsque ia routine est appelée pour une adresse y’ déjà compilée {lors 
d'une exécution antérieure de la même instruction), il y a calcul de 
l'adresse y=y' —d pointant sur le premier octet: d'où la détermination du 
type, envoyé en 56106, et de l'adresse du premier octet de la valeur, 
placée en 56139 et dans le registre X;: on constate donc qu'il n'y a plus 
aucune recherche de la variable, d'où bien sûr accroissement de la rapidité. 


ll faut noter que notre routine créé toujours las variables non encore exis- 
tantes en mémoire, même écrites dans un calcul d'expression (ceci car on 
n'a alors plus la vaieur &H803 située au sommet de la pile, mais seulement 
"un cran en dessous”: voir $SAA2) : ceci pourrait provoquer une erreur dans 
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le cas de l'affectation de la valeur d'une expression à un élément de 
tableau: ce cas est donc détecté, et l'adresse de l'élément de tableau 
(rangée en $613F par le début du traitement de l'affectation) corrigée alors 
en conséquencs. 


Enfin, il ne peut y avoir compilation en cas d'utilisation d'un élément de 
tableau, l'indice pouvant être une variable, prenant donc différentes valeurs 
correspondant à des adresses différentes. 


2, La routine 


Elle utilise un sous-programms effectuant la compilation, placé avant ia 
routine proprement dite : le registre X contenant une valeur y et l'accumula- 
teur D un déplacement d, ce sous-programme place si celà ast possible {au 
moins deux octets disponibles, et pas de &H@,22, etc. dans ls valeur à 
ranger} la valeur y+d à l'adresse a contenue dans le registre Ÿ ; les octets 
disponibles éventuels (si ls nom de la variable comporte plus de deux 
caractères) situés en +2, +4, etc, sont remplacées par le caractère 
“espace” {celul-ci étant ignoré par l'interpréteur: voir $61B8). 


Le sous-programme est le suivant: 


8E6C 31 22 LEAY ZY AU moins 2 octsts 
BEGE 1890 69 CMPY 6BS Y sont-ils ? 

RE71 £2 1D BH 1 $SBE96 Non=pas de compil, 
BE73 33 = ] LEAU  D.Xx y=Y+dÙ 

BETS5 1F 36 TFR UD YA etB 

BE 77 sc INCB A-ton FF? 

HE78 eo? 16 BEQ SBESO Oui=pss da compil. 
BE 7A SA DECE Aston D? 

BE?7E 27 13 BEO SOE SA Qui=>pas de compil. 
BED Ci 22 CMPE #S2% 

BE?7F 2? GF BEG SBE 90 Pas de compilation 
BESi Ci 3A CMPB 33h 

BEG3 27 DE BEG 1:11 Pas de compilation 
BESS C1 83 CHPB #669 

BES7 27 (2 4 BEF) ITS Pas de compilation 
BE89 EF 3E STU L3Y Rangement ÿ 
BESB 19930 89 CMPY 553 Plus de 2 caract.? 
BESE 2 gi BNE SBE91 Oui=sles effacer 
BE9E 39 RTS 

BE91 C6 26 LOEB 520 Code de ‘espace ” 
BESS Er AY STE > Y+ 

BE9S zQ F4 BRA sBESB Boucle 
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La routine proprement dite est la sulvante: 


BEF 
BESA 
BESC 
BESE 
BERG 
BER3 
BERS 
ÉEAT 
BEA9 


BEGE 
BERD 


109E 83 
32 62 
51 SA 
2? 2 
ED  GABR 
Si 25 
22 ÿd 
9D 62 
SF 83 
1F 69 
9  E8 
Ci 28 
36 63 
7E  GAS52 
DE 26 
11923 3F 
235 65 
ED  GAS2 
26 Gb 
34 49 
ED GAS 
DC 20 
A3 El 
D3  2F 
DD 3F 
FC  EFFB 
C  3C 
bg GC 
82 GO 
28 92 

E Ai 
109F 89 
FO  EFFE 
43 

sg 

26 Gi 
4C 

39 EB 
F6 &1 
1F 96 
44 
44 

44 

44 

97 àS 
C4  6F 
39 85 
2D ES 
SF 30 
33 


Adr.l*caract.rom 
Dépile retour $6297 
Code de “2” 
Adr.déjà commpilée 
Lt nom de ls var. 
Atonl#,S ou #7? 
Non 
Caract.suivant-A 
Repiate après nom 


Code de ” |" 
Variable simple 


” Élément de tahleau 


Début zone tableaux 


Affectation à 1 tabl. 
Aucun tableau 
Compüation 
Contenu $29-pile 
Traite variable 

À peut être bougé 
Ancien $28 


Adr.elt.tab.corrigée 
Valeur déplacement 
Nbr.caract.du nom 


Cas d'une retenus 
Compilation et RTS 
Adr,y compiléa-X 
Après adresse 
Valeur déplacement 
Changement signe 


—d D 

Y —dX 

1° octet var.-B 
Qt A 


Type varisble 


Nbr.caract, — 1 
Adresse valeur-X 
Saute las espaces 


REMARQUE: Si on compilait l'adresse (déplacée toujours} du premier octet 
de là valeur, et non celle de l'octet précédant le nom, il faudrait ajouter un 
3° octet pour le type de la variable, 


Ceci simptifieralt la routine, mais obligerait à prévoir lors de l'écriture du 
programme BASIC à compiler 3 octets pour chaque variabie, au lieu de 2 
seulement, d'où une contrainte que nous avons préféré éviter. 


I, Modification du traitement des opérandes 
1. Le principe 


On a vu dans la deuxième partie que les opérandes d'une expression sont 
traités par la routine $7769: il faut donc obligatoirement modifier cette 
dernière pour que la rencontre d’une adresse déjà compilée (1° octet entre 
&H5B et 7F) provoque le branchement en $899, où il y aura appel de $A48 
et donc de notre routine de traitement d'une adresse. 


La routine donnés ci-après compile aussi les constantes entières, en 
remplaçant la valeur initiale {codée en ASCII chiffre par chiffre) par la 
valeur binaire, déplacée de &H191, codée sur 2 octets. 


Le déplacement de &H191 permet de compiler toutes les constantes 
comprises entre &RH@ et &HIEFD, c'est-à-dire toutes les valeurs infé- 
rieures ou égales à 7933: ie premier octet doit en effet être inférieur à 
&H29, sous peine d'être confondu avec un espace et donc ignoré. 


Pour les constantes entières négatives, c'est la valeur absolue qui est 
compilée, d'où encore un premier octet compris entre &H@1 (9 ne serait 
pas compilé} et 1F. 


Enfin, une constante ne sera compilée que si elle occupe deux caractères 
au moins, ou bien sûr un caractère seulement suivi d'un sspacs (dans 
certains cas, l'espace peut aussi être situé avant le chiffre}. 


2. La routine 


Elle traite les constantes numériques à compiler {1° octet compris entre 
&H39 et &H39) ou déjà compilées {1°' octet inférieur à &H206), et branche 
en $899 ou en $785 selon que l’on a une variable (déjà compilée ou non), 
ou bien une fonction ou un caractère spécial (&,..'’,—, NOT, etc). 
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Le listing est le suivant: 


BE 31 38 62 LERS 2,5 Dépile retour $627C 
8E33 SE B9 LOX 6589 Avant 1° caract. 
BES3S Je) Be JSR SE2 Code 1* caract.-+A 
6E37 31 a1 LERY 1,x Sur 1% caratt. 
BE3S 24 14 BRS SÉEA4F Pas chiffre 

HE3E ED 077E JSR s977B Valeur Cte—AC flot. 
BESE SD CD JSR sCD Type constante ? 
BE 48 2À 27 BPL SEE 45 è—pas da compil, 
BE 42 9E wY4 LDX 47 Valeur—X 

BE 44 C2 | 1EFD CMFX  #91EFD 

BE47 23 gi ELS SEE S4A Valeur compilable 
BE45S 39 RTS 

BE 4 CC g1ÿ1 LDD #sd101 Valeur déplacement 
BE4D 29 10 BRA SHEGC Compilation: RTS 


Cte déjà compiiée 
Correction 
Positionne après Cte 
D+$57;:#2S05:RTS 
Code de “A” 
Caractère spécial 


Fonction ou -. NOT. 
Var.{compil.ou non) 


BE69 TE 0735 JMPF #0785 AUtrE 


REMARQUE: Le branchement au sous-programme de compilation suppose 
que ce dernier est placé juste après la routine. 


IV. Mise en œuvre-résultats 


1. implantation-utilisation 


Le sous-programme d'initialisation et les deux routines précédentes seront 
implantées en mémoire par le programme de création de la troisième 
partie. 
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Tous les branchements pointant dans les routines elles-mêmes étant rela- 
tifs, on pourra bien sûr comme toujours choisir une adresse d'implantation 
quelconque : si on prend par exemple $BE31, on ajoutera au programme de 
création les lignes suivantes : 


1849 DATA Init..&HBDA1,CC,BE,31,...,39,FIN 
2884 DATA Trait, opérandes,&HBE31,32,...,24,F4,FIN 
2988 DATA Rech. Variable, &HBE97,199E,...,39,FIN 


On trouvera au dernier chapitre la liste complète des DATA, avec le résultat 
de l'exécution du programme de création. 


Bien entendu, on enragistrera après exécution les routines sur bande. 


On pourra ensuite ajouter en tête de n'importe que) programme qui tourne : 


18 CLEAR,&HBDPS:LOADM:EXEC &HBDF1 


Toutes les constantes et variables du programme comportant au moins 
deux caractères, ou un seul suivi d'un espace, seront alors automatique- 
ment compilées au fur et à mesure de l'exécution, ceci quelque soit la 
manière dont elles sont employées (par exemple dans un calcul, ou une 
instruction comme LOCATE 8OX.IF,etc.., ou comme indice de tableau, 
etc.) 


Le résultat sera, selon les programmes, un accroissement de l'ordre de 
60 % à 80% de la rapidité d'exécution: l'accroissement sera d'ailleurs 
d'autant plus grand que le programme ütilise un nombre plus élevé de 
variables différentes, c'est-à-dire que le gain croît avec la complexité du 
programme. 


2. Exemple 


Soit le petit programme suivant : 


19 CLEAR,&HBDOG:EXEC &hBDa1 

20 À =11:8BEBh +57: As +ÀA 

39 FOR IaiH668B TO &H6626 

49 PRINT USIHG"4 %"3HEXMK PEER I 235 :HEXT 
S6 PRINT:PRINT "R,EBBB =":fA;BBBB 
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Après lecture en mode direct des routines, l'exécution permet d'obtenir le 
contenu de la ligne 29 après compilation; on a: 


66 27 @ 14 SB 1 D4 1 C 3h S8B 7 24 20 
Dé 58 1 C7 35 37 3h 41 Dé 5B 1 C7? 4i 6 


A.BBEB x 224 68 


On constate que la variable À est compilée (adresse déplacée égale à 
$5891 comme prévu) seulement si elle est suivie d’un espace: les deux 
derniers caractères de l& variable BBBB sont remplaçés par des espatas 
(code &H29). 


La constante 11 est compilée (valeur &H191+11—&H1@C), mais pas la 
constante 57: elle devrait en effet être remplacée par la valeur &H13A, 
rejetée à cause du &H3A dans le second octet. 


3. Quelques remarques 


1. Après exécution du sous-programme d'initialisation, nos routines resta- 
ront bien sûr actives, même après un NEW éventuel; pour revenir à un 
fonctionnement normal, il faudra faire simplement : 


POKE &H6297,&H39:POKE &H627C,&H39 


La touche ”’initialisation” ne provoque en effet pas la réinitialisation de Îa 
RAM, effectuée seulement à la mise sous tension du TO7. 


2. Un programme compilé ne pourra être redémarré après l'arrêt normal 
que par GOTO a, a étant le numéro de la première ligne : un RUN ‘efface- 
rait”’ (en fait, RUN réinitialise entre autres les pointeurs contenus en $6120 
et $6122 avec l'adresse de fin du programme) en effet la zone des 
variables, qui ne pourraient pas être recréées à partir des adresses. 


Pour la même raison, on ne paut pas modifier un programme déjà compilé. 


3. !l est parfaitement possible de combiner nos routines de compilation 
avec les nouvelles fonctions et instructions de la 3° partie. 


Dans le cas des procédures, et pour des raisons évidentes, la récursivité ne 
marchera cependant plus: il suffira pour l'autoriser quand même de faire un 
simple POKE&H6297,&H33 dans le programmes principal avant l'appel par 
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CALL de la procédure récursive : on écrira bien sûr POKE &H6297,&MH7E 
juste après la même CALL pour reprendre la compilation au retour de la 
procédure. 


On notera que ceci permet de compiler quand même les constantes (et les 
branchements: voir chapitre suivant) dans la procédure elle-même, d'où un 
certain accroissement de là vitesse d'exécution de cette dernière. 


4. Enfin, il ne faudra pas s'étonner d'obtenir des résultats bizarres en 
listant Un programme compilé !.… 


V. Le problème des tableaux 


Il ast à priori possible, et souhaitable, de pouvoir compiler non plus seule- 
ment les adresses de variables, mais aussi celles des tableaux éventuels 
utilisés par un programme. 


Malheureusement, on à vu que toute la zone des tableaux est déplacée à 
chaque création d'une nouvelle variable, problème n'existant pas avec ces 
dernières. 


On 8e vu de plus qu'il n'est pas possible de compiler les adresses des 
éléments d'un tableau, au moins dans le cas où un des indices est une 
variable. 


On ne peut donc finalement compiler que l'adresse du nom d’un tableau, et 
uniquement dans le cas où toutes {es variables auront été créées avant la 
compilation de cette adresse. 


On constate donc que ceci constitue une contrainte à respecter lors de 
l'écriture du programme {remarquons quand même que cette contrainte 
existe dans tous les langages structurés...) pour un bénéfice relativement 
réduit, ceci d'autant plus que le nombre de tableaux différents utilisés par 
un programme est en général petit, d'où une recherche dans la zone des 
tableaux très rapide de toute façon, 


Il est cependant possible de modifier les routines précédentes pour traiter 
aussi les tableaux; en particulier, il faudra appeler la routine $A52 avec la 
valeur 1 placée en $6107 {il y a alors recherche du seul norn du tableau), le 
cas de DIM étant à traiter à part (on a alors $61@4 différent de @: voir 
$A91) pour permettre la création du tableau. 
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On calculera ensuite les valeurs des indices, que l'on empilera dans la 
pile S: it faudra de plus ranger dans la 2* pile U {créée par exemple en 
$B8FFA) l'adresse de l'en-tête et pour chaque indice ke contenu des 
mémoires $61%4 et $6195, ceci pour le cas où un des indices est lui- 
même élément d'un autre tableau, chose à priori possible | 


L'adresse de l'élément sera ensuite trouvée par un JMP $BES9 (voir 
2* partie). 
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4 


Compilation des 
adresses de 
branchement 


Chaque fois que l'interpréteur rencontre un branchement (GOTO, 
GOSUB,ON), il y à calcul de l'étiquette {routine $6FD : voir 2° partie}, puis 
recherche dans le programme lui-même de ia ligne correspondante (routine 


$4AG). 


Nous présentons une méthode permettant de remplacer automatiquement 
l'étiquette de branchement par l'adresse effective (déplacée! du début de la 
ligne correspondante. 


Le résultat est bien sûr un nouvel accroissemnent de la vitesse d'exécution 
d'un programme. 


{, La méthode 


1. Principe 


Il est ici moins immédiat d'intervenir sur les routines de traitement des 
branchements, puisque celles-ci ne comportent aucun passage par [8 RAM 
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{à part la routine $61B2, non modifiable en pratique car on ralentirait forcé- 
ment le traiternent de tous les caractères du programme, d'où un résultat 
inverse de celui recherché l), 


On est donc obligé d'intervenir au niveau du décodage des instructions 
d'un programme. 


On a vu en effet qu'à chaque code d'instruction rencontré par l'interpréteur, 
il y a passage en $627$ (voir routine $2B25)}, où l'on pourra dérouter le 
BASIC vers une routine testant si lon a un code correspondant à 
GOi&HB87) ou à ON(&RH96), que l'on pourra alors traiter. 


2, Précautions à observer 


Les adresses effectives de branchement peuvent être à priori comprises en 
$65F4 (adresse du $ précédant la 1°“ ligne du programme) et $SBFFF 
(valeur jamais atteinte en fait, un programme comportant toujours des 
variables |) pour le TO07, ou $DFFF (même remarque) pour le T07-76. 


Il est parfaiternent possible ici de placer dans le programme une valeur 
supérieure ou égale à &HB86, l'interpréteur attendant en effet toujours une 
étiquette après un GOTO ou GOSUB : il n’y a donc pas de risque de confu- 
sion avec une instruction. 


Par contre, on ne peut toujours pas placer les valeurs &H9,22,3A,89 où FF 
dans le programme, ainsi que les valeurs &HS8F ou C4 suivies de 
&H81,82,AF ou B9. 


y étant l'adresse effective du branchement à la ligne Kk, c'est-à-dire 
l'adresse du @ précédent la ligne, on implantera donc en fait l'adrasse 
y =y+&H2A0D. 


Dans le cas du TO? avec extension mémoire, on obtient en effet ainsi un 
premier octet compris entre &H9Q et E9 : il faudra donc tester seulement si 
on à &HCA4 (l'adresse effective commence alors par &H9A)}, auquel cas on 
ne compilera pas l'adresse. 


Comme au chapitre précédent, il n’y aura pas non plus compilation si le 
2° octet est égal à &H9,22,3A,89 ou FF, ou si l'étiquette k ne 
comporte qu'un chiffre non suivi d'un espace. 


La compilation elle-même sera donc toujours effectuée par le sous- 
programme du chapitre précédent. 
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REMARQUE: cas du 7107-70: 


Le dépiacement de &H2AGD permet de compiler toutes les adresses de 
branchement inférieures ou égalas à $D4F1 (au delà, on obtient un &RHFF 
non compilable), ce qui correspond à un programme d'environ 28K°-octets. 


Si l’on désire compiler des programmes encore plus importants, il suffira de 
prendre un déplacement de &HD5@0D, qui correspond à soustraire 
&H2AF3 de l'adrasse: on obtient des adresses déplacées démarrant à 
$3B@1, d'où la compilation possible de programmes de plus de 49K- 
octets. 


On devra alors bien sûr tester si le premier octet sst égal à &H69 ou 8F où 
C4, auquel cas on ne compilera pas l'adresse. 


3, Initialisation 


Il suffit d'ajouter dans le sous-programme d'initialisation du chapitre précé- 
dent les Instructions implantant un JMP $BDB8 en $6279. 


L'adresse $BDBS8 peut bien sûr être modifiée à volonté: nous l'avans 
choisie pour que les routines données ci-après soient placées juste avant la 
routine de traitement des opérandes, ceci à cause des branchements rela- 
tifs au sous-programme de compilation. 


IL Traitement des instructions GOTO et GOSUB 


Notre traitement est bien sûr calqué sur le traitement ”’normal”, situé en 
$696 {voir 2° partie). 


Lorsque l'interpréteur rencontre un GOTO ou GOSUB suivi d'un chiffre (C 
est alors positionné à 1 par $B2), l'adresse effective est calculée par la 
routine $629, puis déplacée de la valeur &H2A@D et rangée dans le 
programme. 


Si on n'a pas un chiffre, c'est que l'étiquette k a déjà été compilée: on 
retranche alors simplement le dépiscement. 
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La routine, implantée ici en $BDF4, est la suivante: 


RES SE 6 LERS 2,5 Dépile retour $6279 
90 BZ JSR 62 Octet après GO-A 
BDFS DE 895 LOL 5BS Adr.cer.courant-l 
SDFA 81 BC CMPA 4#SEC Code de SUB 
BDFC 26 a9 BNE s6EO7 Traite TO 
BDFE JE ec LDX y2C N° ligne courante-X 
BEGG 34 “2 PSHS f:X/U 
BE62 90 63 BSR $6E0/ Branchement lignes k 
BEG4 TE  2AED JMP  $S2AED Boucle d'exécution 
pEGT a0 B2 JSR 22 1® caract.étiquette 
BE NS 31 di LERY 1,ÙU Adrosse-+Y 
BEOËE 24 10 BHS SSE29 C=%—déjà compilé 
BEOD BD G6FD JSR SO6FD Calcul de k 
BE 16 DE 59 LOU sa Adr.caract.après k 
BE 12 94 40 FSHS U Empllemsnt 
BE 1 4 BD 062$ JSR S0629 Trouve adr.sffective 
BE 17 35 40 PULS Ù 
HE 19 DF ES STU 889 Restaure $E9 
BE 18 1F 18 TFR # » D Adrligne k-D 
BE 1D 81 3A CMPA NS9h Donnerait C4 
BEF 27 85 BEG  $8E26 Pas de compilation 
BE21 CC 2ADD LDD NW4azAOD Valeur déplacement 
Ed gD 46 BSR S8E6C SP. de compiistion 
6 SF 59 STX 69 Car.cour.aur déb. x 
BE 28 39 RTS 
2 EC A4 LDD Adresse compilée-+D 
BE2E 83 2R0D SUBD  #Ss2A0D Correction 
SE2E DD 89 STD _ 1.E) Car.cour.sur déb.k 
BE 36 39 RTS 


REMARQUE: Le branchement au sous-prograrnme de compilation suppose 
que la routine sast placée juste avant Celui-ci. 


Il. Traitement de f’instruction ON 
Le traitement normal‘ est effectué en $36B5, où on ira en cas d'instruc- 
tion ON ERROR ou ON PEN. 


L'instruction "ON expression” suivie de GOTO ou GOSUB est par contre 
traitée par la routine suivante: on constatera qu'elle fait bien sûr appel au 
traitement de GOTO et GOSUB vu ci-dessus. 
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Le listing est le suivant: 


$HCC2 
167 
SBDF 4 
#596 
$BDC3 


2:S 
$B2 
#SBE 
SBDCF 
#58 
S$EDDE 
S36BS 
S0EBS 
#sO7 


R;:FL 


Si 3A en tôte (’... 
Code de GO 
GOTO GOSUB 
Code de ON 


Autre inst.—$2B28 
Dépile retour $627% 
Caract. après ON 
Code de PEN 


Coda de ERROR 

On a une expression 
Traitement normal” 
Valeur exp.—$58 
Code de GO 

A-ton GC? 

Empllé TO ou SUB 


Pas bonne adresse 
TO ou SUB 

Effectus branchament 
1 caract.étiquette 
Chiffre=pas compilé 
Adr. déjà compliée 
On saute l'adresse 


Saute l'étiquette 
Étiquetta suivante 
Instruction suivante 


REMARQUE : On notera au début de la routina (adresse $BDB8 correspon- 
dant à celle implantée en $6271 lors de l'initialisation}) le branchement au 
traitement de GOTO et GOSUB, ou bien à celui de ON. 


On remarquera aussi qu'une étiquette n'est compilée que lorsqu'il y a 


effectivement branchement à la ligne correspondante. 


Mise en œuvre — exemple 


Toutes les routines précédentes seront toujours créées par le même 
programme de création, puis enregistrées sûr bande par SAVEM. 


On veillera à placer les unes à la suite des autres la routine traitant les 
branchements, puis celle traitant les opérandes (le sous-programme de 
compilation étant placé en tête de celle-ci} et enfin celle traitant les 
variables. 


On trouvera à la fin de cette 4° partia la liste de tous les DATA 
correspondants. 


Après exécution du sous-programme d'initialisation, il y aura donc compiia- 
tion automatique de toutes les adresses de branchement, au fur sat à 
mestré de l'exécution. 


On notera toutefois que seuls ON, GOTO et GOSUB sont traités par nos 
routines ; une étiquette placée dans une instruction |F après un THEN ou un 
ELSE ne sera donc pas compilée : si on écrit par contra GOTO k au lieu de 
THEN k, et ELSE GOTO k au lieu de ELSE K, il y aura bien compilation. 


Exemple : 


19 CLEAR, &HEDOG : LOMDM:EXEC &HBDS1 

ca GOSUB 28 

#3 ON AR GOTO 56, 36, 56 

26 Añez:RETURN 

39 FOR IrtHé6GE TO EHE6S7 

40 PRINTUSING"# 4" HEXSCPEEKGC I à33 : NEXT 


Ce programme, dont on ne s’inspirera pas vu l'imbrication des branchs- 
ments, écrit le contenu des lignes 29 à 26 après leur exécution. 


On obtient: 


66 18 0 14 67 BC 98 33 20 @ 66 20 9 17 
S6 20 6 1 24 687 E6B 25 35 34 2C 39 44 2C 
35 36 6 66 38 0  1A 35 1 C4 32 3A 8B 6 


On constate à la ligne 26 que l'étiquette 26 est remplacée par la vaieur 
&RH9Y39-8&H662C0+8&H2AYD, $662C étant en effet l'adresse du @ précé- 
dant la ligne 26. 


À la ligne 23, l'étiquette 39 est bien compilée par la valeur 
&H9944=8RH6637+&H2AGD : les deux étiquettes 59 ne sont par contre 
pas compilées puisqu'elles ne sont pas utilisées. 


La variable AA est bien sûr compilée, ainsi que la variable | de la ligne 30. 
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Application à 
d’autres ordinateurs 


Toutes les routines précédentes sont évidemment spécifiques à l’interpré- 
teur des deux TO7. 


La méthode présentée, consistant en Une compilation interactive de 
certaines adresses et constantes, est par contre très générale et peut être 
appliquée à n'importe que! ordinateur, 


l. Cas où il existe des vecteurs en mémoire vive 


Ce cas est heureusement le plus fréquent; il permet comme nous l'avons 
vu d'intervenir très facilement sur ls fonctionnement de l'interpréteur. 


Pour mettre notre méthode en œuvre, il faudra toujours étudier soigneuse- 
ment les routines de l'interpréteur permettant d'explorer” le programme. 


Qn trouvera facilement l'emplacement de la routine cherchant la fin d'une 
Instruction en observant la traitement das instructions ‘non exécutables ” 
comme REM ou DATA, ou bien sûr en étudiant les instructions qui l'utili- 
sent comme |F ou GOTO. 
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Cette routine existe sur tous les interpréteurs, et on trouvera très probable- 
ment dans le cas d’un ordinateur utilisant le code ASCII qu'elle traite les 
mêmes valeurs que pour les 107, c'est-à-dire & HG (fin de ligne), 22(guille- 
mets), 3A (fin d'instruction): les valeurs &H89 {IF, ceci pour le cas des Î[F 
imbriqués permis par les TO07) et FF (fonctions, codées sur 2 octets) ne 
seront peut être par contre pas traitées, ou seront différentes, 


Rappelons que toutes les valeurs traitées par cette routine ne pourront pas 
être implantées dans un programme. 


L'étude de l'instruction FOR let WHILE lorsqu'elle existe} permettra ensuite 
de trouver la routine cherchant le NEXT {ou WEND) associé au FOR: on 
trouvera donc là aussi Certaines valeurs à ne pas implanter dans un 
programme. 


On en déduira, en fonction de la carte mémoire de l'ordinateur considéré, 
les déplacements à effectuer pour compiler les constantes, les adresses de 
variables et celles des branchements: on devra d'ailleurs éventuellement 
ne compiler que les adresses conduisant à des valeurs comprises dans un 
certain intervalle, ce qui ne diminue pas l'intérêt de la méthode. 


H. Cas où le BASIC est entièrement figé en ROM 


Rappelons que les instructions de branchement des TO7 ne comportent 
aucun passage par {8 RAM, ce qui ne nous à pas empêché d'intervenir sur 
leur fonctionnement : il suffit an effet de décoder les instructions corres- 
pondantes, d'où un déroutement vars les nouvelles routines, écrites à partir 
de celles de l'interpréteur. 


On fera donc de même s'il existe qu'un seul vecteur en RAM, situé dans la 
boucle d'exécution des programmes ou dans la routine de traitement des 
instructions. 


il ne sera pas beaucoup plus difficile d'intervenir sur un BASIC ne compor- 
tant même pas celà. 


Il suffira en effet d'écrire alors sa propre boucle d'exécution des 
programmes (voir 2° partie), toujours en ‘”recopiant” celle de l’interpréteur. 


En tête du programme BASIC à faire exécuter, on placera donc un simple 
EXEC {ou USR]) vers la routine : toute l'exécution du programme sera alors 
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contrôlée par cette dernière, ce qui permet bien sûr toutes les interventions 
désirées. 


On observera toutefois que le traitement de certaines instructions 
(GOSUB,NEXT.IF) se termine non pas par un simple RTS {provoquant le 
retour à la routine), mais par un saut à la boucle d'exécution des 
programmes ‘’normale”’, d'où reprise du contrôle par l'interpréteur. 


H faudra donc faire traiter ces instructions par ses propres routines, à écrire 
encore en recopiant celles d'origine. 
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Résumé de la 


quatrième partie 


Nous donnons ci-après la liste complète des DATA à écrire pour les TO7 et 
TO7-7@ dans le programme de création de la troisième partie, en vue de 
permettre la compilation automatique des adresses utilisées par un 
programme BASIC. 


Les routines correspondantes (icl de $8D@1 à $BEFB) seront bien sûr enre- 
gistrées en binaire par SAVEM. 


Un simple CLEAR, &HBD@G:LOADM:EXEC &HBD@1 ajouté en tête de 
n'importe quel programme aura alors pour résultat de pratiquement 
doubler la vitesse d'exécution de celui-ci. 


Rappelons aussi que lies DATA donnés ci-après peuvent être combinés 
avec ceux de la troisième partie : on bénéficiera alors en même temps de 
toutes les instructions supplémentaires et de l'accroissement de la rapidité 
d'exécution, 
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Le fisting des DATA est le suivant: 


1898 ‘ossnvasIinitialisation. sos. 

15604 DATA Initialisation:£&HBDb1, CC, BDB8S, FD: 6271, CC, BES1 
FO: 627D.,06,97,FD,6298,86 , FPE, B7,6270,bBr:6260:57: 6297, C4 
: 9B01,:93,1E,FD.EFFB,39,FIH Init, 

1599 ? 

1995 ‘koutines 

2r68 DATA Branchements, LHBDES,27,8,81,87.27,36: 81,96, 27 
,1:49,32,62,9D,B2,61,B58, 27:14, 61,98, 26,53,7E,36B5,B8D.,EB8, 
Dé Sr: JD, 00, 34, 2,158, 46, à, ne 20:15,90,82,25,6:9D,62;, 

30,62, +9,3, BD, 6F0,26.E9, 25,8 

ee An b2, 6e SD B2 DE: 83, 81/BC:26,9,9E, 2, 24,52, ED, 3 
s*E,: 2 

2/26 DATA SC.BZ,31,41,2d4,10.BD,68F0,DE.,B9.,54,40,EB0.629,3 

5,46,D0F,89,1F.:1ÿ,81,9h,27,5, CC: zh@D, 80,46, 9F:89.39,EC.hA 

4183, 2HOD, CC, 89,33, PIN Branchements 

28009 DATA Trait.cPerandes. LMBES1.32,62,SE,89,90,B2,31,1 
» 4: 14,BD, 7rB,9D, CD, 24,7, 9È:57:86, 1EFD,23,1:39,0C: 181,2 

M:1D0,:81.1F,22,B,EC,R1,83,1081,145F,89,7E,C959,81,41,25,, 

81,580, 54,3, rE,849,7E,7r8Ss 

2819 DATA 51:22, 109C.B9,22,10,335,86,1F,30.56,27,16,5A,2 

F13401,22:87,PFLC1.9H,87,:B:C1, 99,87: P,EF:3E: 1990, 69, 26, 
139.06, 20.Er;, KG: 20, F4, FIN Sous-Prrm, 

2900 DATA Rech,.variables, LHBÉ9F, 109E,B9,32,642,81, 9, 22: 

3A. BD, AO.:31.25,22, 4, SD, B2,9F.49, 1F,89:9D.65, 01:28, 26,3 
a FE: AS, DE ; 26, 1193, 3F 23,5, BD, 52,20, D, 34,46, BD, 452, DC: 

20,A3.E1,:D03:3P, DD. SF, FC BFFB,C; CC. D0,3C,88,04, 20,927 

29510 DATA AE, 41:109F,BS,FC.BFFB 43, 5û, 26, 1,4C,30,8B,ÈE, 
81.:1F.::8,44,44,44,44,97,5, C4,F,36.25,90,88,9F,90,33.FIN 
Rech. 

2959 DATA FIK des routines 


Résultat de l'exécution 


ROUTIHE Initialisation 
Début : BDG1 Fin:BD2S Somme: 2327 


ROUTINE Branchenents 
Cébut : EÛUBSS Fin:ÉE36 Somme: 12252 


ROUTINE Trait .oPerandes 
Debut : BE 31 Fin:BÈ96 Somme: 8628 
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ROUTINE KRech,variabtles 
Debut : 8697 ‘Fin:B8EFB Somme: 19513 


Implantation terminee.., 
Enresistrer de 8DBi à BEFB (par SAYVEM) 


REMARQUE: Pour ie TO7 de base, les adresses seront bien sûr choisies à 
partir de $7D01. 


On pourra par contre choisir $DDS1 pour le 1707-79, 


Enfin, ia routine suivante, à implanter n'importe où {par exemple dans les 
DATA eux-mêmes}, parmat d'utiliser ls clavier exactement comme Îles 
manettes de jeu : 2 joueurs jouant simultanément, déplacements en diago- 
nale possibles (voir remarque du chapitre ? pour le TO 7-70: remplacer les 
2 valeurs soulignées par 97 et 7A): 


2060 DATA BD,24,03/86,FE/B7,E7,C9/ CC, 2,B/9E,0,8,D. 58,26 
; 8 BD; 32, AD, 39, OD, 2E ; 20; 10 dA, CE, 7» 8D, 27 ; CC» 20» B: SD, 22» 
96, 8, 80.23: C6, 5, 80,0,9, 26, 2, 30:18, BD, 1%1F,18,54,24,1,5 
9,C1,:8:23, 1,5F: DD, 57,86, 2, SE; 61: 55, 39 

2018 DATA 1A:1:79,E7:C9, CO; 2,B5,E7, C8, 26, 2,30: 85,39,FIN 
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Cinquième partie 


LE TO 9 
LE DOS BASIC 


Une des caractéristiques les plus visibles du dernier ordinateur TO9 de 
THOMSON est constituée par la présence d’un lecteur de disquettes ; nous 
étudions donc ici le DOS BASIC, c'est-à-dire l'extension de l'interpréteur 
permettant entre autres la gestion des disquettes ; nous présentons aussi un 
programme permettant l'exploitation optimale de ce DOS. 


Le DOS des TO7-70 ou TO7 équipés d’un lecteur de disquettes est realisé 
exactement de la même manière que celui du TO9 ; nous traitons donc aussi 
ce cas. 


Le TO9 comporte plusieurs logiciels en mémoire morte ; nous indiquons ici 
comment accéder aux différentes ROM et comment les décoder, et cela tant 
pour le TO9 que pour le TO7-70 équipé du BASIC 128. 


Enfin, la présence du DOS impose certaines modifications (mineures) de nos 
applications ; nous indiquons donc comment réaliser l'adaptation des routi- 
nes correspondant aux nouvelles instructions de la troisième partie et à la 
compilation partielle des programmes BASIC de la quatrième partie. 
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LE TO 9 
Ses logiciels 


Le dernier micro-ordinateur de THOMSON représente un très grand pas en 
avant par rapport au TO7-70. 


Tous les programmes BASIC écrits pour ce dernier pourront toutefois être 
traités par le TO9 puisque celui-ci contient le BASIC 1.0 en mémoire morte ; 
nous indiquons donc ici la marche à suivre pour cela. 


Le TO9 contient aussi d’autres logiciels en ROM, dont le nouveau BASIC 


128 ; nous verrons donc comment étudier ces logiciels, normalement «invi- 
sibles» depuis le BASIC 1.0. 


Enfin, nous traitons le cas des possesseurs de TO7-70 équipés du BASIQ 
128, et désirant étudier celui-ci. 
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1, Présentation matérielle 


1. Les progrès par rapport au TO7-70 sont évidents ; on notera donc en par- 
ticulier le très bon clavier, très complet, la présence d'un lecteur de disquet- 
tes intêègré de format 3,5 pouces et de bonne capacité (320 ko), le nouveau 
crayon optique très amélioré et la possibilité de connecter une «souris ». 


D'autres progrès, bien que moins visibles, sont tout aussi importants, tels 
que l'affichage en 40 ou 80 colonnes, la palette des 16 couleurs à choisir 
parmi 4096, l'intégration de l'interface imprimante, les 128 ko de RAM en 
version de base, etc. 


2. Ces différences matérielles, et en particulier celles liées à l'affichage et à 
la nouvelle gestion du clavier (bufférisé), ont imposé certaines modifications 
dans les registres utilisés par le moniteur : 


— $605F représente le mode d'affichage (40 ou 80 colonnes, ou « bit 
map» ) : 


-  $6079 (deux octets) contient l'adresse du buffer clavier ; 
— _$607B contient la taille de ce buffer, initialisée à 5 ; 
—  $605E est le pointeur de lecture du buffer : 


les principaux registres, listés dans l'annexe 2, n'ont par contre pas été modi- 


fiés ; il en est de même pour les adresses des routines du moniteur (annexe 
1). 


Il. Les logiciels ; leur étude 


Le TO9 contient plusieurs logiciels en mémoire morte, dont le BASIC 1.0 
des TO7 et TO7-70 et le nouveau BASIC 128. 


Ces logiciels sont tous placés à la même adresse, soit de $0000 a $3FFF ; 
l'accès à l'une ou l’autre ROM est effectué par invocation d'une adresse com- 
prise entre $0000 et $0003 : 


—  $0000 permet l'accès aux 16 premiers ko octets du BASIC 128 : 


les 16 ko suivants seront commutés par l'adressage de $0001 ; 


— $0002 permet l'accès au BASIC 1.0 : 


$0003 commute une ROM contenant la deuxième partie du moniteur 
(la première étant située en $E800). 
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Tous ces logiciels seront étudiés par le biais d'une recopie dans une zone de 
mémoire protégée (en $D000), qui sera désassemblée avec correction auto- 
matique des adresses. 


On ajoutera simplement pour cela les instructions suivantes au programme 
de désassemblage de la page 33 : 


56000 'Désassemblage de toutes les ROM's(et RAM) TOQ 
56010 CLEAR, &HCFFF:CLS 

56020 INPUT''ROM à désassembler(O à 3,ou ENT) ’'; AS: ROM=V 
ALCAS):IF ROM=O AND AS<D>''0' THEN ROM=2 Basic 1.0 
55030 FOR I=&HDFOO TO &HDF16 

56040 READ AS$:POKE I, VAL(C''&H''+AS):NEXT:POKE &nHDHO2, ROM 
56050. DATA. 2B7::0::0:88.0;,0:CE, DO, 0, EC; 81:ED; CL, 11.83, Dk;:0 
,25,F6,B7,0,2,39 "’CGommutation ROM; transfert en $D000 
57430 IF ADR<&H4000 THEN POKE &HDFO4, ADR @ 256:POKE &HD 
FOS. ADR MOD 2568: DECAL=&HDOOUO-ADR: ADRF=ADRF+DECAL: ADR= 3% 
DOOD:EXEC &HDFO9O ELSE DECAL=O 

57519 IND=0:COD2=0: PRINT#1,HEXS$ (ADR-DECAL) ; 'Corrige aûr 
97870 AS="S''rHEXS(X-DECAL) : GOTOS8500 ‘Corrige branchts 


On pourra donc désassembler ainsi le nouveau BASIC 128 ; ce dernier méri- 
tant une étude complète, nous nous contenterons de signaler qu'il est large- 
ment compatible avec le BASIC 1.0, tout en étant à la fois plus complet et 
plus efficace aux points de vue gestion de la mémoire et traitement des va- 
riables. 


REMARQUE : Cas du TO7-70 avec BASIC 128 


Les deux ROM du BASIC 128, commutées respectivement par invocation 
des adresses $0000 et 0001 (ROM 0 et 1), seront désassemblées par exacte- 
ment le même programme, dans lequel il suffira de modifier les trois lignes 
suivantes pour le rendre compatible avec le BASIC 128 : 


56010 CLEAR 1000, &HCFFF:CLS 
56020 INPUT''ROM à désassenbler(C à 1) ‘’; AS: ROM=VALCASH): 
IF ROM<O OR RCM>1 GOTO 56029 
56059. DATA E7,:0,:0,88,:0,0,28,.D0+0.,EC,81;E0,CL, 11,82; DE,9 
529;,F6, B7,0,0,30 "Commutation ROM; transfert en S£5D090 
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2 
Le DOS Basic 1.0 


La présence du DOS en mémoire modifie bien évidemment le traitement des 
programmes. 


Le vocabulaire de base est en effet complété de 23 nouvelles instructions et 
de 12 nouvelles fonctions, ce qui modifie entre autres la manière dont est 
codé et traité un programme, ainsi que son implantation. 


1. Implantation et codage d’un programme 


1. A l'initialisation, le DOS est placé au début de la mémoire libre : le pro- 
gramme de l'utilisateur est donc ensuite déplacé d'autant. 


L'examen de la mémoire $611C permet en effet d'obtenir l'adresse $8E54. 
Le programme 2 de la page 46 permet de vérifier qu'il s'agit bien là de 


l'adresse du début des programmes. 
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2. Si on écrit en tête de ce programme 2 les diverses nouvelles instructions ou 

fonctions, on constatera qu'elles sont codées de &HD6(DSKINI) à &HEC 

(DENSITY) pour les instructions, et de &HFFA7(DSKF) à &HFFB2(DSKI$) 
pour les fonctions. 


Il s'agit là des codes suivant immédiatement ceux déjà utilisés pour le BASIC 
de base. 


IL Tables des nouvelles instructions et fonctions 


1. Nous avons vu (page 49) que le codage des instructions d'un programme 
est réalisé à partir de la routine $2A21, qui permet de “balayer” les tables 
des mots réservés. 


Chaque mot tapé au clavier est en effet comparé a tous les mots de la premiè- 
re table, dont l'adresse ($0092) est contenue en $6202 : lorsqu'on est arrivé 
à la fin (voir $2A76), il y a retour en $2A23 où le registre U est incrémenté 
de 10 : il pointe donc sur $620C ou l'on trouvera l'adresse de la deuxième 
table des instructions : on trouvera ensuite de même en $6216 et 6220 les 
adresses des troisièmes et quatrièmes tables éventuelles, signalées par une 
valeur non nulle dans l'octet d'adresse U1 (valeur égale au nombre de mots 
contenus dans la table). 


Toutes les tables des instructions ayant été balayées, le registre U est reposi- 
tionné (en $2A5F) sur $61FC : il y a alors retour en $2A21 : on trouvera 
donc en $61FC + 10, soit en $6107, l'adresse de la première table des fonc- 
tions : celle de la suivante sera ensuite trouvée 10 octets plus loin, en $6211, 
puis celle de la troisième éventuelle en $621B, etc... 


Le programme 2 de la page 46 permet de lister toutes les informations rela- 
tives aux tables ; on obtient : 


GZOI 96 0 92 2 6B 27 1 CF O0 20 
620B 17 6A EQ 6B CE C 6B 85 6B ES 
6215 (0) (0) (0) 7 F3 0 O (e) 7 F3 


On constate qu'il existe deux tables supplémentaires par rapport au BASIC 
de base, situées en. $6AE9 et 6B85 ; elles contiennent respectivement les 
23 + 12 nouvelles instructions et fonctions. 
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2. Le programme 3 de la page 48 (modifier bien sûr les adresses de la ligne 
220) permet alors de lister tous les nouveaux mots du BASIC DOS, que l'on 
trouvera ci-après. 


3. REMARQUE : DOS TO7-70 


On trouvera de même en $620B le nombre des nouvelles instructions, suivi 
de l'adresse de la table des mots correspondants : l'adresse où sont décodés 
et traités ces nouveaux mots sera trouvée en $620E (voir ci-après). 


Les informations concernant les nouvelles fonctions seront de même trou- 
vées à partir de $6210. 


III. Exécution des nouvelles instructions et fonctions ; 
Tables des adresses 


1. Nous avons vu (page 53, en $2B4A) qu'un code d'instruction supérieur à 
&HD5 provoque le branchement à l'adresse contenue en $620E, soit $6BCE; 
on y trouve les instructions suivantes : 


6BCE CMPA #SEC Code>EC CDENSITY)? 
BHT SGRDA QOui=>pas inst.du DOS 
LDX #56BS7 Non=)>adr.cable adrs.insts.DIS-2>X 
SURA #5D6 DSKINI->20.etc... 
J MP $2B383 Branche au traitement de l'instr. 


J MP S7r3 Syntax error 
EBEl -J MP {t 5621865] Contient $7F3CSN Error) 


La table des adresses des nouvelles instructions du DOS est donc située en 
$6B57, c'est-à-dire juste après la table des nouveaux noms d'instructions. 


2. Nous avons vu (page 65, en $2AA1) qu'un code de fonction supérieur à 


&HFFA6 provoque le branchement à l'adresse contenue en $6213, soit en 
$6BES : on y trouve : 
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SBES CMPB #$564 Code>rFE27? 
ELS $S6BED Non=>tfonction du DOS 
JMP { 5621D)] Oui=>7F3(SN Error) 

6BED SUEB #$4FE DSKF->30.,.DSKI$->516 
CMPE #$512 STRINGS ou DSKIS$? 
EHI S6BFA Qui=>plusieurs paramètres 
PSHS B 
JSR $S7DE Calcul du paramëétre(unrique) 
PULS BE 

CBFA LDX #$S6ERP6 Adr.table adrs.fonctions DOS-2x 
JMP S2AE7 Branche au traitement 


La table des adresses des nouvelles fonctions du DOS est donc située en 
$6BB6, soit juste après celle des noms. 


3. Les nouvelles instructions du DOS sont donc les suivantes : 


N2n 


nexa 


BACKUP 


code | Adresse 
hexa 


Adresse | 


hexz 


KILL 


| 
CIRCLE 57 | 77F0 | LSET | DE 85FD | 
COPY E6 | G642E i| NAME 9 6F3À | 
DENSITY | EC | 8597 | PAINT E8 789E 
DEVICE EC | &@FOE PUT DD 8836 
DIR El | 6D86 | RENUM EA 7B92 | 
| DRAYW | EO 7DF4 RSET DC 85FC 
| DSKINI | Dé | 7753 | SVYAF EB 7A03 
DSXOS D7 88C5 UNLOAD £4 822D 
FIELD DA 85BE | YERIFY DF 6F2G 
FiLES | £z | 8172 | YRITE ES | 8265 
GET | DE | 2657 l | | 


REMARQUE : On vérifiera que EXEC &H6D86 liste bien le catalogue. 


191 


D'autre part, le listage d'une instruction 


10 PRINT:POKE &H8E58, &HD6 ‘ou D7,D8,etc... 


donne bien DSKINI (ou DSKO$, KILL, etc...) après que l'on ait fait RUN. 


4. Les nouvelles fonctions du DOS sont les suivantes : 


Adresse 
hexa 


LOF 


FFAF 


MKDS FFAD 
MKIS FFAE 
MKSS FFAC 
SPACES | FFBO 

| STRINGS | FFB1 


REMARQUE : De même que ci-dessus, l'instruction 
10 PRINT X:POKE &H8258,&UFF:POKE &@H8E59,&HA7 ‘ou A8. 


donne bien DSKF (ou CV1I, etc...) après avoir fait RUN. 
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3 


Création des 
nouvelles instructions 


Compilation 


L'étude précédente va nous permettre d'adapter nos routines au TO9, ainsi 
qu'au TO7-70 équipé d'un lecteur de disquettes. 


On obtiendra alors un BASIC comportant entre autres les procédures et les 
sprites décrits dans la troisième partie. 


On pourra aussi effectuer la compilation de n'importe quel programme 
BASIC, qui sera rendu ainsi beaucoup plus rapide à l'éxécution. 


L Fonctions de conversion  radiants- degrés 


La routine de la page 91 doit ici être modifiée puisque les fonctions utilisa- 
teurs FN sont autorisées avec le DOS. 
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On trouve en effet en $623C une instruction JMP $7A73 : notre traitement 
sera donc en cas de rencontre du mot-clé FN de tester si l'on a FNR( ou 
FND(, pris alors en compte par notre routine ; sinon, on se branchera en 
$7A73 pour le traitement normal. 


La routine, placée ici en $DC40, est la suivante : 


DC40 DE B9 LDU $SB9 Adr.caract.FN->U 
DC42 37 12 PULU A,X 2 caract.aprés FN-2Xx 
DCA44 CC 920 LDD #5920 Adr.traitmt. /-2D 
DC47 8c 4428 CMPX #54428 A t'on "D€C" ? 

DC4A LT 0B BEQ SDC57 Oui=>suite 

DC4C CC 25B6 LDD #$525B6 Adr.traitmt. *%x-)>D 
DC4F 8C 5228 CMPX #55228 A t'on "RC" ? 

DC52 T 03 BE $DC57 Qui=>suite 

DCS 4 TE 7A73 JMP $7A73 Non=>trait.normal FN 
DCS 7 DF B9 STU $B9 sur ler car.argument 
DCS9 34 06 PSHS A,B Adr.traitmt.->pile 
DCSB BD QY7EO JSR $07E0 Traite argument->FAC 
DOSE,:s: à 444: DCE =BA49Q à BAS9Q pg.91 
DC70 GE FL J MP É HSE) RAZ pile S;traitmnt. 


Nos deux nouvelles fonctions seront donc initialisées en plaçant l'adresse 
$DC40 en $623D. 


Il, Création de nouvelles instructions 


1. Par rapport au BASIC 1.0 des TO7 et TO7-70, les instructions WHILE et 
WEND ont malheureusement été enlevées de la table des mots réservés : 
il n'est donc plus possible de créer facilement une boucle WHILE-WEND (les 
routines $ 16AC et 2F3, toujours présentes, imposant d'avoir &HAF et BO 
comme codes de WHILE et WEND). 


2. Laroutine correspondant à notre instruction SWAP ne se justifie plus puis- 
que cette instruction existe dans le DOS (elle n'autorise toutefois pas le mé- 
lange des types) ; l'intérêt de INC est par contre toujours le même (deux fois 
plus rapide qu'une addition normale). 


On remarquera que la valeur &H0001 est contenue en $EA24 ($F9CA pour 
le TO7) comme dans le cas du TO7-70. 
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3. Nos nouvelles instructions seront donc INC, CALL, PROC (et ARG, non 
exécutable) et SPRITE ; elles seront traitées grâce à une table des mots située 
en $DB95 et à une table des adresses de traitement située en $DB71 ; le 
nombre des nouveaux mots sera placé en $DB70. 


ll suffira pour cela d'en/ever du programme de création des pages 93 et 106 
les instructions 1320 à 1360, et de modifier ainsi les seules instructions 1010, 
1310 et 1560 : 


1010 CLEAR, &HDAOO 
1310 ADRO=&HDB7 1: ADR=ADRO+36 ‘Adresses tables 
1560 ADRO=FIN+1:POKE &HDB70, NBRM 


Bien entendu, les DATA des instructions 1700 à 2990 devront aussi être légè- 
rement adaptées, comme on le verra ci-après. 


4. Après éxécution du programme de création ainsi modifié, il faudra bien 
sûr sauvegarder les routines et les tables sur disquette ; on fera donc : 


SAVEM ‘’ROUT”', &HDAO1, &HDFFF, &HDCO1 


L'activation des nouvelles instructions, qui devra être effectuée (en mode 
direct) avant toute utilisation des nouveaux mots, sera alors réalisée en fai- 
sant : 


CLEAR, &HDAOO: LOADM ‘ROUT”,,R 


III. Adaptation des routines 


1. Initialisation 
Les nouvelles instructions seront activées et traitées par la nouvelle routine 


d'initialisation suivante, compatible avec les informations obtenues au chapi- 
tre 2 : 
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DCOA (Sie DE9S LDD #SDE95 Adr.table nouv.mots 
DCOD FD 621 STD 56216 

DC10 B6 DB70O LDA $DB70 Nombre nouv.mots->A 
DC13 E7 6215 ST A $6215 

DC15 8E EC ADDA #$EC Atcode ler mot->AÀ 
DC18 C6 23 LDE #523 Code de BLS 

DC1A FD 6BDE STD $S6BDR Modit.S6EDA...chap.2 
DCiD 1F 50 TFR PC,D 

DCiF 23 0007 ADDD #$0007 #$DC26-2>D 

DC22 FD 621€ STD 6218 Adr.trait.nouvx. mots 
DC25 39 RTS 

LC26 8E DB71 LDX #5DB71 Adr.table adresses 
DC29 80 ED SUBA #$SED ler mot->0,etc... 
DC2B 7 2E38 JMP $52B38 Traitement mot 


2. Les procédures 


Les deux octets permettant la détection du déplacement d’un tableau sont 
ici situés en $DFBE (au lieu de $BFFE). 


D'autre part, ARG est maintenant codé par EF, soit sur un octet au lieu de 
deux (code &HFFAB auparavant) : ceci impose de modifier de la manière 
suivante la routine de la page 119 (les adresses données ici sont les anciennes): 
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BE50 ‘3D B8 JSR $5B8. Code->A 

BE52 88 84 EORA #5$584 OÙ exclus,.avec DIM 
BB=4 2B 09 BI SBESF 1->bit 7=)variable 
EB56 26 290 BNE $E878 A>0=>ARG 

BE3SS8 12 NOP A=0O=>DIM 

EE59 8D 58 BSR  SBEB3 SP+6 (tableau) 

En $BB76, on écrira alors : 

_BB76 12 NOP 

BB7 7 12 NOP 

BB73 C6 EF LDR  #5EF Code de ARC 

BE7A OC DO JSR $SDO A t'on ARG°? 


3. Les SPRITES 


La zone permettant les échanges avec la mémoire écran sera ici placée en 
$D400 ; la zone de gestion des sprites sera mise en $DFCO. 


L'octet permettant la détection d'une « collision » entre un sprite et une 
forme ou un autre sprite sera situé en $DFBD au lieu de BFFD (on modi- 
fiera en conséquence les instructions 530 (et 400) et 280 (et 10) des pages 
142 et 143. 


Les routines $F966 (EF15 pour le TO7-70) et F161 ($F328) du TO7 (voir 
page 141) sont dans le cas du TO9 situées respectivement en $F85D et EF1 D 
à signaler qu'en cas de modification ultérieure du moniteur, ces routines 


seront immédiatement retrouvées en étudiant les routines d'affichage PLOTS$ 
et PUTCS$. 


Enfin, le TO9 et le TO7-70 permettent l'affichage de 16 couleurs au lieu des 
seules 8 tolérées par le BASIC 1.0 ; ceci impose de toujours mettre à 1 les 
bits 6 et 7 de la mémoire de couleur, ce qui sera fait en ajoutant une instruc- 
tion ORA # $CO entre $BD92 et BD93 ; on devra donc aussi décaler de 2 
les deux branchements au sous-programme (en $BCFC et BD34). 


4. Résumé 


1. Tous les DATA à écrire sont listés ci-après, avec les modifications à effec- 
tuer par rapport aux pages 146 et 147 : 


2000 DATA Initialisations,&HDCO1,CC, DC40, FD, 623D. 

2010 DATA BD, DE6GO 

2020 DATA CC, DB95,FD,6216,B6,DB70,B7,6215,8B,EC,C6,23,F 
D,6BDB,1F,50,C3,007,FD,6218,939 

2030 DATA 8E,DB71,80,ED,7E,2B38,FIN 

2100 DATA Fonctions, &HDC40,DE, B9,37,12,CC,920,8C,4428,2 
7,B,CC,25B6,8C,5228,27,3,7E,7A73,DF,B9,34,6,BD,7E0,BD,2 
92B,BD,1C81,CC,7B8E, DD,55,F,5D,CC, FA35S, DD,57,6E,F1,FIN 
2200 DATA INC, &HDC90, BD, A48...3,8E, EA24, BD, 1C08,etc... 
2400 DATA CALL, &HDCEO,C6,7,ED,336,9E,22,BF, DFBE, 109E, B9 
... 2D,E8,88,84,2B,9,26,20,12,8D,58,84A,C0,etc... 

2405 DATA 12,12,C6,EF,9D,D0,...22,BC,DFBE,26,34,etc... 
2410 DATA 9D,B8,81,84...27,3,7A,DEBE,96,5,F,7,5D,39,TIN 
2300 DATA PROC, &HDD7C,81,80,27,6C,2©D,7E6,etc... 
2310,2520 et 2530 DATA inchangés 

2600 DATA SPRITE, &HDE60, 8E, DEC2, 86,1F,A7,81,4A,26,FB,39 


197 


2610 DATA 86,FF,E7,DF3D,BD,815..,.58,58,C3, DFCO, DD,63,5C 
...C6,60,3D,C3,D400, DD,67 

2620 DATA EC,9R6165...27,8,17,0C1,6C,9F6165,39 

2630 DATA FC,6576...10BE,6578, BD, F85SD,D,9C,26,7,34,50,1 
7,089,35,50,9F,58, 1C9E,67, BD, EF1D,86,10,97,355S 

2640 DATA D6,56...27,3,7F,DFBD,SA,26,E4,350,8825,etc..., 
2659 DATA 86,10,97,55...48,48,48,84A,C0,97,56,C6,3,etc.. 
2660 DATA 9QE,5A, 10SE, 5C, BD, F8SD,9F,58,10SE,67,BD,EF1D,8 
6,10,97,55,etc.. 

2950 DATA FIN des routines 

2990 DATA CALI, &HDCEO, PROC, &HDD7C, ARG, &H7F3, SPRITE, &HDE 
6B, INC, &HDC20,FIN 


On constate que l'on devra aussi supprimer les anciennes instructions 1710, 
2095 à 2110 et 2295 à 2300 (et 1320 à 1360 : voir 11) ; de plus, on a renur- 
méroté ici les instructions 1700 à 2000 pour raison de compatibilité avec les 
routines de compilation. 


2. Le résultat du programme de création est le suivant : 


ROUTINE Initialisaticns 
Début: DCO1 Fin:DC2eD Somme: 9163 


ROUTINE Fonctions 
Début: DC40 Fin:DC71 Somme: 5663 


ROUTINE INC 
Dé but: DC90 Fin: DCDI1 Somme: 5853 


ROUTINE CALL 
Début: DCEO Fin: DDYB Somme: 15347 


ROUTINE PROC 
Début : DD7C Fin:DES6 Somme: 22239 


ROUTINE SPRITE 
Lébut: DE6O Fin:DFB5 Somme: 38821 
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IV. Compilation 


1. La première modification à effectuer consiste à déplacer les routines (im- 
plantées ici en $DA01 au lieu de BDO01) et à modifier l'adresse où est rangée 
la valeur du déplacement des adresses de variables ($DB6E au lieu de BFFB). 


2. |! faut aussi modifier le déplacement des adresses de branchement ; les 
adresses effectives de ceux-ci sont en effet maintenant comprises entre 
$8E53 et DFFF, au lieu de 65F4 à DFFF ; le déplacement sera donc ici de 
&HIAE = &H9001-8E53 (au lieu de &H2A0D). 


Il faudra donc tester en $BE1D si le premier octet de l'adresse effective est 
égal à &HC3 (on aurait alors C4, interdit) au lieu de 9A. 


REMARQUE : 


On pourrait faire calculer automatiquement le déplacement des adresses de 
branchement lors de l'initialisation, comme on le fait pour les adresses de 
variables. 


On calculerait pour cela x $9002-[$611C |. 


3. Par rapport aux DATA de la page 181, nous avons ici choisi de renuméro- 
ter à partir de 1700 pour pouvoir créer les routines correspondantes en 
même temps que les nouvelles instructions ; les modifications sont les sui- 
vantes : 


1720 DATA Initialilisation, &HDAOi,CC, DA28,FD,5271,CC, Dâäl 
, FD,627D,CC,LB0O7,FD,6298.,.FD,DESE,39,FIN Init. 

1800 DATA Branchements, &HDA28,27,6,81,87,atc,., 

18419 DATA 32,62,QD,B2,etc... 

1820 DATA 9D,82,31,a41...1F,19,81,03,27,35,CC,1AE,3D,46,7 
F,B9,39,EC,A4,33,1AE, DD,2S,39,FIN Branchements 

1959 DATA Trait.cpérandes, &HDAA1,32,62,9E,EQ,etc... 

869 DATA 31,22,109C,29,etc... 


900 DATA Pech.variabies, &HDBO7, 199E, E9..,.DD,3F,EFC, DSéE 


Li ls 


roGrD0, 20 etc Le 
1910 DATA AE,A41.12C9F,29,FC,DESE,13..,.9F,38D,F,7,39,FIN 
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4. Le résultat du programme de création est alors le suivant : 
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ROUTINE Initialisation 
Début: DAO1 Fin: DA26 


ROUTINE Branchements 
Début: DA28 Fin:DAAO 


ROUTINE Trait.opérandes 
Début: DAA1 Fin: DB0O6 


ROUTINE Rech. variables 
Début: DBO7 Fin: DB6D 


SOMME : 


SOMME : 


Somme : 


Somme : 


5520 


12633 


8628 
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Annexe 1 


Routines du moniteur 


Initialisation de l'affichage 


Affichage du caractère contenu dans B; 
gestion des attributs d'écran 


Lecture du clavier (code touche retourné 
dans B) ; 


Lecture rapide du clavier (bit C du CC mis à 1 
si une touche est enfoncée) 


Tracé du segment de droite d'extrémité (X,Y) 
Affichage du point de coordonnées (X,Y) 
Gestion de l'interface de communication 
Entrée/sortie sur cassette 


Lecture du crayon optique (retourne coordon- 
nées dans X et Ÿ, avec bit C du CC mis à O) 
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Lecture bouton du crayon optique (bit C du CC 
mis à 1 si enfoncé) 


Génération de la note de musique contenue 
dans B 


Lecture de la couleur du point (X,Y) (retournée 
dans B) 


Lecture du caractère situé en (X,Y) (1 à 40,0 
à 24 : code ASCII retourné dans B) 


Lecture de la manette de jeu dont numéro 
dans A (direction retournée dans B : bit C du 
CC mis à 1 si bouton enfoncé) 


Entrée/sortie sur disquette 
Retour au menu principal (par JMP) 


Sortie (par JMP) d'un programme 
d'interruption 


Écriture du point ” caractère’ de coordonnées 
X et Y (1 à 40, 9 à 24) 


REMARQUE : A,B,CC, X et Y désignent les registres du 6899. 
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Annexe 2 


Principales adresses 
du moniteur 


1. Page # 


STATUS 


TIMEPT 


USERAF 


SWI1 


FORME 


bit 7 : semi-graphique ; bit 6 : scroll rapide; 

bit 5 : interruptions utilisateur ; bit 4 : graphiques 
sans couleur (TO7-70); bit 3: lecture clavier; 
bit 2 : curseur visible ou invisible : bit @: 

touche clavier déjà lue 


Pointeur (2 octets) sur traitement des 
interruptions timer utilisateur 


Pointeur (2 octets) sur générateur de 
caractères utilisateurs 


Pointeur (2 octets) sur traitement des 
interruptions logicielles (SW!) 


Code de la couleur pour affichages graphiques 
(TO7:-8 à+7:T07-79:-8 à+15) 


—_———t 
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COLOUR Couleurs courantes : bits @,1,2 : couleur tond: 
bits 3,4,5 : couleur forme : bits 6,7 : couleurs 
pastels (TO7-76) 


PLOTX Abscisse (2 octets) du dernier point affiché 
PLOTY Ordonnée (2 octets) du dernier point affiché 


CHDRAW @, ou code ASCII du caractère à afficher (par 
PLOT$, DRAWS ou CHPLS$) 


STADR Adresse (2 octets) du 1°’ octet de la fenêtre 
écran 


ENDDR Adresse + 1 (2 octets) du dernier octet de la 
fenêtre 


BUZZ Sémaphore du bip clavier pour TO7-79 


PTCLAV Pointeur (2 octets) sur la table de décodage 
du clavier pour TO7-7@ 


PTGENE Pointeur (2 octets) sur le générateur de 
caractères standards pour TO7-79 


2. Adresses d’entrées/sorties 


PIA système 6846 :$E7C0 à $E7C7 


$E7C3 (PROC) : registre de données 


bit 9 : commutation mémoire écran ‘’forme”’ (1) et 
‘’ couleur’ (f) 


bit 1 : interrupteur crayon optique 
bit 2: couleur pastel du tour pour TO7-7# 
bit 3: affichage en minuscules 
bit 4,5,6 : couleur du tour 
bit 7 : lecture cassette 
$E7C6 (TMSB-TLSB) : valeur du timer (2 octets) 
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PIA système 6821: $E7C8 à $E7CB 


$E7C8 (PRA) _ : registre de données du port A; lecture matrice clavier 
$E7C9 (PRB)  : registre de données du portB; écriture matrice clavier 
bits #,1,2: multiplexage clavier pour TO7-7# 
bits 3 à 7 : sélection banques mémoire pour TO7-78 


PIA jeux 6821: $E7CC à $E7CF (manettes de jeu) 


interface de communication 6821 : $E7E0 à $E7E3 


Gate-Array (T07-70) : $E7E4 à $E7E7 
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Annexe 3 


Les instructions 
du 6899 


1. Instructions de branchement 


M — he — 
RTE 
Description 
BCC BCC a — C=0 
LBCC Long Branch 
C=0 
BCS BCS Branch C=1 
LBCS Long Branch 
C=i 
BEQ 27 Branch Z=0 
LBEQ . He 
BGE ee. Zero 
LBGE 1 Long Branch æ Zero 
EE 2 Branch > Zero DEEE 
: Branct, Higher 
Long Branch Higher 
| BHS BHS Branch Higher 
or Ssme 
LBHS Long Branch Higher 
BLE . BLE Branch s Zero e 
| LBLE Long Brench s Zero e 


BLO BLO 2 |Brench lower 
LBLO 4 |Long Brancn Lower e 
. 
4 


BHI 
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Mode 

0 

[OP — | Description __ | HIN] ZJVIC 
BLT ESS Zero 
LBLT HS Branch <« Zero 
BMI Brench Minus 
LBMI 1 Long Branch Minus 
BNE Brench Z#0 
LBNE 1 Long Brancr. 
BPL 
LBPL : 


Z#0 


Branch Pius 
Long Branch Plus 


Branch Always 
Long Branch Always 
Branch Never 

Long Branch Never 


Branch to Subroutine 
Long Branch to 
Subroutine 


BVC BVC 2 | 3 Branch V=O0 
LBVC 10 |5(6) Long Brancr 
2 VsO 


Bvs BVvS Branch V=)i 
LBVS Long Brancr 
V=i 


2. Instructions 


Adressing Modes 
ant rare TRE Ge nes Dee lee BE AA 
BR En HE D 2H SR El LOpl-|#]0pl -]#. Description HIN[ZIVIC. 


SE HR EHRBRRE RUE 
ADCS FRE His RAA HER 
ADDA 88 A+M—A 
ADD8 C8 es … à : B+M—8 
ADDD C3 03 E3 F3 | 7 D+MM+1—-0 
a EN 7 ë TE AAM—A , 
HHHEQUESÉ EURE UUE 
ANDCC CCAIMM-CC 
ASLA A ee 8 
ASLE 8 OUR 8 
ASL i Le 78|71|3 M? €  b7 8 
ASR ASRA 8 
Er 
ASRB 8 
ss BARRAGES Te 
BITA But Test À (M A A) 
LL elililelalelelsls) | | Jerome BRRHE 
CLRA 
CLAB 
+ ll LLL LI 
CMP 


CMPA 


Compare M from A 


CMPB Compare M from 8 

CMPO Compare M M + 1 from D 

CMPS Compare M M + 1 trom S 

CMPU Compare M M + * from L 

CMPX Compare M M + 1 from X 

CMPY Compare M M + 1 from Y 
COM COMA | 

COMB 

COM 

SE 2 PE GE D CITE CEA MM CE Wan tormenunt | | | | [7 
DA ORNE EE __1 [Uecimal Adjust À [lip 0 


DECA 
DECB 
DEC 2+|7A 


SRB HE HERBE 
___|EOR8 E8 £. ae En 


b— 
ExG [AIR JeleJelefe] 
INC CES sc A+1—A e 
s AAA EL | 
L l'INC 6C168+12+1|7C M+1—M e 
L6e13+)2+1 7€) 41 31 [| JeaŸ-rc  ____[efefefele 
ss TS D DOS Ent ere ses——— [elelele 


O0O0O0OC0O 


000 


sn 
| Los au 
LOC CC 
[Los 10 
CE 
Lou CE 
LOX 8€ 
LOY 10 
8E 


Op: code opération en hexadécimal 
-: nombre de cycles 

4: nombre d'octets 

@: flag non affecté (H,N,Z,V,C) 
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1 , 9 ou 1: flag affecté 


+ (adressage indexé) — @ à 8 cycles, et O0 à 2 octets à ajouter selon le post-octet (voir annexe 4) 


dressing Modes 
aa SE 
Description 


Forme FERTILE RTE 


es LL LSTTT Some EEE 
ss Se ienp ET EE 


| 1[Ax [A x 8 D (Unsigned) : | D [A x 8 D (Unsigned) : | 


+ 1—A 
Be 
ME ———— 


ENOP | [1 [No Opersnon | 

OR ORA 8A 9A AVM—A 
HÉHAÉGEGEEL LHENE ns “ie 
ORCC tA CC V IMMæ CC 

ETC see pos 
PSHU Push Registers on U Stack 

BÉ ÉNLLL DICO CÉSRRE Us 
PULU 37 Pull Registers from U Stack 


ROL ROLA 
RS ERIPAPRAAARRENNES Sun D. 


ROL 


ROR RORA 
RORB SOI 
{ ROR 76 


D D EL 6/14 1 [Return From interrupt | DES 


CASE, Ve) | TRE EEE 
SBCA 62 -C—A 
E: MRDS Se C2 ME - à -C-8 

CR D ES VE EE VS ES ES QU GS ES EE AR RO EE EE Sign Extend B 110 À DOG 

0 

cn Ole 

STD Ole 

STS Ole 

STU Ole 

STX Ole 

| STY s Ole 


SUB SUBA A-M=—A 8 
SUB8B8 c B-M—8 8 

SUBO : D-MM+1—-D ° 

e 


SW! SWI® È Software Interrupt ! 
| SwI28 : 

| | sw | 

l 


Software Interrupt 2 


Sofiwere interrupt 3 


Re tt —+—+—— A A A A En RE 0 
TFA CHERE LA BCE GG 900 
TST TSTA 1 |Test A 

TSTB 1 [Test 8 

k TST 70 Test M 

Lam 

Notes: 


3: EA est l'adresse effective (‘effective adress‘) 

4: 5 cycles pour PSH et PUL, plus 1 cycle pour chaque octet transféré 
5(6): Branchements longs: 6 cycles si branchement effectué, 5 sinon 
6: SWI positionne | et F à 1 (pas SWI2 ou SWI3) 

8: Valeur de H non définie 

9: cas spécial pour MUL:1-C si bit 7=1 
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Annexe 4 


Adressages indexés et 
relatifs — conversions 
décimal/hexa 
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S3HIVIN3W3IddNnS S13190.Q 3HIWON : 
S3HIVIN3W3IddNnS S31949 30 3H8WON : 


K 


SL 

Nn @!l 

A !9 
}u818HIpUI : X X 00:uu 
Snon«AxX: 


19841PU] pepu8ix3 
(S18$/10 \u8w8]dw07 S,Z) 
94 04 185}jO 1U81SU07 


ze [votes T (wo 'u) 1 2 [ST Lonoex | wod'u |" _resiouggt | 
___00110Xx1 | 494 ‘u | ___sjoves | 
of mooimur | (#=-"1 |ofef  uooouut | u- =" |" ZzAgiueweseg | 
CL pomonsrou 7 [ofef out | #7 | 7 1Aeiveueseg 
ofof som [ 1++u') | oJel  roooouur | + +u° | 7 Ag iueweul | 
[OT pemone sou oz]  ooovouur | +u' | 1 Ag iuewemul ]y 1uewesseg eme] oinv 
ofeT mou [m'a [ofvf nom | u'a 18Sj0 JeisBeu O 
Oo] voioiuu | (m'a [ofi] room |  u'e | 1850 11SÉOU 8 
[o[r] ououmu [  tu'v] [oi] ouoouut | #'v | 185}}O 181S168y y 
RCI CROIS 2 C2 COTTON ECS RE CT CET TEE 
Ref oœuum [mu Fri] oo | uv | __wsioves 
CET a or smeep Joel vuuuuuo Qu |] 7 wsnougg | (151,0 uewerawo) 5, 
ofef oooiuur | 141  [ olof oooouut | 4" |" 168H0 où | 4 tuouy 1854J0 iumisuon 


# | - epo) dO Lu 4 # - epo) do 104 
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M LB OO ww 


BB men vor 


CITE 
pr 


SJje[91 S98eSS21pY ‘2 
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3. Conversion décimal/hexa 


Chiffre hexadécimal 


n M O (0 D }> © ©  O O1 B WU N = © 
n MO O0 > © © HO O1 B À N = © 
n M O O D > © © HO O1 B À N = © 


1) 
1 
2 
3 
4 
5 
6 
7 
8 
9 
A 
B 
C 
D 
E 
F 


Conversion décimal/hexa — Branchements relatifs longs 
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Annexe 5 
Code ASCII 


Code [Code 
décimal| hexa 


Code [Code 
décimahhexa 
09 |NUL 


O2 |STOP clavier 
93 |CONT/C clavier 


Code |Code 
décimal hexa 
42 2A 
+ 


SONNETTE 
BS(+clavier) 
HT(-clavier) 

LF( + clavier) 

VT(T clavier) 

RAZ clavier 

ENTREE clavier 

SO (semi graphique) 
SI (alphanumérique) 


O ©  O O1 B O N = © 


oowmw||-—/—N<XS<C 


/ 
1) 
1 
2 
3 
A 
) 
6 
7 
8 
9 
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Code Code 
décimal\hexa 
16 19 


17 11 | DC1 (clignot. curseur) 
18 12 | DC2 (répétition) 


DCA4 (arrêt curseur) 


SS2 (car. accentués) 


23 17 

24 18 | CONT/X clavier (effac 
fin ligne) 

25 19 

26 1A 

27 1B | ESC 


INS clavier 
EFF clavier 

J clavier 
US 


Espace 
| 
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< 
> 
? 
@ 
A 
B 
C 
D 
E 
F 
G 
H 
| 
J 
K 
L 
M 
N 
O 
P 
Q 
R 
S 
T 


Code |Code 


Es |—-—-N<xSsS<crw-0T033-x—-70 #h D 


Annexe 6 
Instructions BASIC 


Adresse Code Adresse 
hexa hexa hexa 


ATTRB 
AUTO 
BEEP 
BOX 
BOXF 
CLEAR 
CLOSE 
CLS 
COLOR 
CONSOLE 


DEFINT 
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Adresse 
hexa 


LINE 
LIST 
LOAD 
LOCATE 


Code 


RESTORE 
RESUME 
RETURN 
RUN 
SAVE 
SCREEN 
SKIPF 
STEP 
STOP 
SUB 
THEN 
TO 
TROFF 
TRON 
UNMASK 
WAIT 
WEND 
WAHILE 


Adresse 
hexa 


666 


REMARQUE : La table des noms d'instructions commence en $0092, celle 
des adresses en $26B (utilisée en $2B25). 


Les instructions MID$, INPUT et SCREEN sont décodées en $2B4E. 


Les variables ERL et ERR sont traitées par la routine $77@. 
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Annexe 7 
Fonctions BASIC 


Adresse Adresse 
hexa hexa 
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Adresse Adresse 
hexa hexa 


INKEYS 
INPUT 
INSTR 
INT 
LEFTS$ 
LEN 
LOG 


REMARQUE : La table des noms des fonctions commence en $1CF, celle des 
adresses en $0420 (utilisée en $2A93). 


FN et USR sont décodés par la routine $770. 
SPC,TAB et USING sont traitées par l'instruction PRINT ($F78). 
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Annexe 8 
Les Opérateurs BASIC 


Code | Priorité | Adresse 


Opérateur Symbole Fox hors ra Notes 

Concaténation + C7 DBB | Décodée en $85B: 
pour chaînes 

Puissance T CB 7F 2391 | Opérandes traités en 
$8F3 

— unaire — C8 7D 25F3 | Décodé par $77@ 
(en $789) 

Division / CA 7C 929 

Multiplication * C9 7C 25B6 

Division entière | @ D2 7B 2635 

Reste MOD D1 7A 265C 

Addition + C7 79 2590 

Soustraction — C8 79 2582 

Supérieur à > D3 64 266D | Traité en $97A 
(par $990C) 

Egal à = D4 64 266D | Idem 


221 


Opérateur Symbole 


Sup.ou égal à 
Inférieur à 
Différent de 
Inf. ou égal à 


Complément 


ET 
OU 
OÙ exclusif 


Equivalence 
Implication 


Code 
hexa 


Priorité 
hexa 


Adresse 


Idem 

Idem 

Idem 

Idem 

Décodé par $770 
(en $79F) 


REMARQUE: La table des opérateurs (priorité et adresse) commence en 


$096E. 


Le — unaire et NOT sont traités par la routine $77Q. 
Les opérateurs de relation sont décodés en $834 (routine $81A). 


222 


Annexe 9 


Principales adresses 
du BASIC 


Nombre 
d'octets 


Adresse Commentaire sur le contenu 


Nombre d'indices d'un tableau 

différent de @ pour l'instruction DIM 

type d'une valeur 

contient 1 si on veut l'adresse du début d'un tableau 
Adresse 1°'"® instruction du programme ($65F5) 
Adresse début zone des variables 

Adresse début zone des tableaux 

Adresse début zone libre 

Adresse du fond” de la pile système 

Adresse fin zone des chaînes 

Numéro de la ligne courante du programme (ou 
&HFFFF si on est en mode direct) 


DNNNNNN = — — — 


$6139 2 Valeur d'une étiquette de branchement 
$6138 2 Pointeur de ligne de DATA 

$613D 2 Adresse de la valeur d'une variable 
$613F 2 Adresse où l'on doit affecter une valeur 
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Nombre 
Adresse doter 
$6155 
$615D 
56163 
$6186 
$618C 
$61A2 
$61B9 
$61CA 
$61CD 
$61D0Q 
$6291 
$6292 
$6294 


N ND — CO © © NN — NN — © — © 


$6206 
$6207 2 
$6299 2 


$6233 3 
$6236 3 
$6239 3 
$623C 3 
$626D 3% 
$62AC 1 
$62AD 2 
$62B2 255 
$6445 255 


$657A 16 
$S65AC 2 
$65B1 1 
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Commentaire sur le contenu 


Accumulateur flottant (FAC) 

Signe de la valeur située dans FAC 

Second accumulateur flottant (et signe) 

Différent de @ en mode trace (TRON) 

Adresse du sommet de la pile (valeur de S) 
Différent de @ en mode protégé 

Adresse du caractère courant du programme 
Contient JMP $7E9 (vérifie qu'on a une virgule) 
Contient JMP $2592 (Détermine le type d'une valeur) 
Contient JMP $7EB (vérifie la syntaxe) 

Nombre des instructions et opérateurs BASIC 
Adresse de la table des instructions 

Adresse table des adresses de traitement des 
instructions 

Nombre des fonctions BASIC 

Adresse de la table des fonctions 

Adresse de la table des adresses de traitement des 
fonctions 

Traitement äe WHILE (JMP $7F3: SN Error) 
Traitement de WEND (ldem 

Traltement de DEFFN (Idem) 

Traitement de FN (Idem) 

Points de contrôles de diverses routines 

Nombre de caractères dans le buffer d'E/S (cassette) 
Adresse du caractère courant du buffer d'E/S 
Buffer d'E/S (cassette) 

Buffer d'entrée par le clavier 

Nom d'une variable ou d'un tableau 

Avant dernière adresse de la RAM 

Code de la dernière touche enfoncée au clavier 


Annexe 10 


Principales routines 
du BASIC 


Ne Commentaire Page 

2F3 Recherche dans la pile le FOR associé au NEXT 

rEnCONtÉ rm e sé lis delire aimes) ans 73 
336 Test de dépassement de capacité mémoire (OM Error) 
353 Traitement de l'erreur dont code dans B ............ 55 
4A9 Recherche d'un numéro de ligne 
66B Recherche de la fin de l'instruction courante ......... 70 
66E Recherche de la fin de la ligne courante ............ 70 
6FD Calcul d'une étiquette (numéro de ligne) 
734 Conversion et rangement d'une valeur (numérique ou 

(OA: LL ESP RE 62 
77 Calcul de la valeur d’un opérande ................. 64 
7EB Contrôle de syntaxe ; caractère suivant—A ........... 63 
800 Valeur (adresse si chaîne) d'une variable-Accu. 

flottant FAC 
81A Calcul d'une expression, retournée dans FAC ........ 63 
8BD Permutation des 2 accus. flottants (FAC en 


$6155, et $6163) 
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Adresse 
hexa 


Commentaire Page 


Recherche (et création éventuelle) d'une variable ou 

d'un élément de tableau ........................ 60 
Calcul d'une valeur entière positive, retournée dans 

$6157,58 

Registre D-$6157,58 : #92-$6105 (type entier) 

Affichage du caractère dont code dans A 

Recherche du WEND associé au WHILE rencontré . ... 74 
Recherche du NEXT associé au FOR rencontré ....... 74 
Chargement du 2d Accu. flottant ($6163) avec une 

valeur réelle 

Chargement de FAC avec une valeur (adresse dans X) 

Inverse de 1C92 : FAC-»rmémoire 

2d accu. flottant-FAC 

inverse de 1C64 : FAC-2d accu. flottant 

Test de valeur logique  FAUX"'(9) dans FAC (-»Z=1) 

Affichage de la valeur contenue dans D 


Détermination du type d'une valeur (positionne CC) ... 63 
Conversion en cas de mélange de type 

Boucle d'exécution des programmes ............... 55 
Traitement des instructions ...................... 53 
Traitement des coordonnées d'un point graphique 

Traitement des paramètres des instructions graphiques 76 


Page 0: 


Adresse 
hexa Commentaire 


61B2($B2)| Caractère courant suivant retourné dans A 


61B8($B8)| Caractère courant retourné dans A 
61CA($CA)| Vérifie que ” ,”: caractère suivant 
Branche en $2592 (détermination d'un type) 
Branche en $7EB (contrôle de syntaxe) 


REMARQUES : À,B,CC et X désignent les registres du 6809 
FAC désigne l'accumulateur flottant,situé en $6155 
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